[perl #77460] [BUG] Calling an anonymous sub in a for loop makes the for loop not run in Rakudo

[Will Coleda via RT]

On Thu Aug 26 16:32:05 2010, masak wrote:
> <masak> rakudo: my @a = 1; for 1..10 { my $last = @a[*-1]; say $last;
> push @a, (sub ($s) { $s + 1 })($last) }; say @a.perl
> <p6eval> rakudo df38ac: OUTPUT«[1]␤»
> <masak> could somebody confirm to me that this is not expected 
behaviour?
> <masak> I expect [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]
> <sorear> what's with the say $last?
> <masak> it doesn't print.
> <masak> it's as if the loop doesn't run.
> <masak> rakudo: my @a = 1; for 1..10 { my $last = @a[*-1]; say $last;
> push @a, $last + 1 }; say @a.perl
> <p6eval> rakudo df38ac: OUTPUT«1␤2␤3␤4␤5␤6␤7␤8␤9␤10␤[1, 2, 3, 
4, 5, 6,
> 7, 8, 9, 10, 11]␤»
> * masak submits rakudobug

This works now:

10:24 < [Coke]> rakudo: my @a = 1; for 1..10 { my $last = @a[*-1]; say 
$last;
                push @a, (sub ($s) { $s + 1 })($last) }; say @a.perl
10:24 <+p6eval> rakudo 38165a: 
OUTPUT«1␤2␤3␤4␤5␤6␤7␤8␤9␤10␤Array.new(1, 2, 3,
                4, 5, 6, 7, 8, 9, 10, 11)␤»

Needs tests.
-- 
Will "Coke" Coleda