# New Ticket Created by Patrick Abi Salloum # Please include the string: [perl #77836] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=77836 >
sub foo () {
gather {
my $c=0;
loop {
$c = $c+0.001;
take $c;
}
}
}
say $_ for foo(); #crashes around 4.0xx on my pc
If I use a while loop instead of for loop things get a bit better
my $s = foo();
say $s.shift() while ($s) ; #crashes around 10.xxx on my pc
