| Subject: | leaks memory by the bucket |
The following code memory leaks on various platforms:
#!/usr/bin/perl -w
use POE::XS::Queue::Array;
my $q = POE::XS::Queue::Array->new;
# or
#use POE::Queue::Array;
#my $q = POE::Queue::Array->new;
print "inital: \n", `ps -o rss -p $$`;
for (1..1000){
my $id = $q->enqueue($_ % 4, "payload $_");
$q->dequeue_next;
print "$_:\n", `ps -o rss -p $$`;
}
http://www.nntp.perl.org/group/perl.poe/3463