On Fri, 09 Jun 2017 12:48:55 -0700, c...@cpan.org wrote:
> Example code:
>
> $ cat bug.p6
> for ^7 {
> my $x = 1;
> 1 andthen print "$x "
> andthen $x = 2
> andthen $x = 3
> andthen $x = 4;
> }
>
> Output:
>
> $ perl6 bug.p6
> 1 4 3 3 3 3 3
>
> We apparently create a closure over the wrong value of $x.
>
> $ perl6 --version
> This is Rakudo version 2017.05-356-gac8b4714f built on MoarVM version
> 2017.05-50-g6a372ac4
> implementing Perl 6.c.
>
> See also https://irclog.perlgeek.de/perl6/2017-06-09#i_14711768
Thank you for the report. This is now fixed.
Fix: https://github.com/rakudo/rakudo/commit/1ee89b54074e80c
Test: https://github.com/perl6/roast/commit/2f2998733a2d8132c
