At 01:21 PM 7/31/02 +0200, I wrote:
>I'll see if I can devise some little test program that will show this
>problem. Maybe a fix to perl 5.8.0 will be easy...
Ok, this proves it:
================================================
use threads;
my @queue : shared;
my $thread = threads->new(
sub {
while (1) {
die if @queue > 10000;
shift( @queue );
}
}
);
push( @queue,1 ) while 1;
================================================
on my box this program never dies but grows to 250 Mbyte of RAM within
seconds. If the growth were caused by the values not being taken off the
array, it would have died within the first second.
I just filed a perlbug report about this...
Liz
