yak1ex / anyevent-digest Goto Github PK

Use the following code, will always increase the memory usage.

my $cv = AE::cv;
my $file = '/root/bigfile';
my $t; $t = AE::timer 1, 2, sub {
my $ctx = AnyEvent::Digest->new('Digest::MD5', unit => 655360, backend => 'aio');
my $md5 = $ctx->addfile_async($file);
my $cb; $cb = $md5->cb(sub {
my $ct = shift->recv;
print $ct->hexdigest ."\n";
undef $ct;
undef $ctx;
undef $cb;
});
print ps -o vsz,rss -p $$;
print "\n";

};
$cv->recv; # Wait

• Add a guard for IO::AIO and AnyEvent::AIO to t/03-async-aio.t
• Specify optional modules in dist.ini

Maybe to update DZP::Test::Compile and to re-release solve this issue.

We should do undef $call when a callback loop ends.

https://rt.cpan.org/Ticket/Display.html?id=88628

It is necessary to use a filehandle usable for XS module.

Use workaround described by http://perldoc.perl.org/perlfork.html#Forking