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

[Carl Mäsak]

# New Ticket Created by  "Carl Mäsak" 
# Please include the string:  [perl #77460]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=77460 >


<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