[poe-xs-queue-array.git] / leak.pl

#!/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";
system "ps -o rss -p $$";
for (1..2000){
my $id = $q->enqueue($_ % 4, "payload $_");
$q->dequeue_next;
}
system "ps -o rss -p $$";
for (1..2000){
my $id = $q->enqueue($_ % 4, "payload $_");
$q->dequeue_next;
}
system "ps -o rss -p $$";
Commit	Line	Data
cb6fa8eb TC	1	#!/usr/bin/perl -w
	2	use POE::XS::Queue::Array;
	3	my $q = POE::XS::Queue::Array->new;
	4	# or
	5	#use POE::Queue::Array;
	6	#my $q = POE::Queue::Array->new;
	7
	8	print "inital: \n";
	9	system "ps -o rss -p $$";
	10	for (1..2000){
	11	my $id = $q->enqueue($_ % 4, "payload $_");
	12	$q->dequeue_next;
	13	}
	14	system "ps -o rss -p $$";
	15	for (1..2000){
	16	my $id = $q->enqueue($_ % 4, "payload $_");
	17	$q->dequeue_next;
	18	}
	19	system "ps -o rss -p $$";
	20