[perl #131548] [BUG] andthen weirdness with lexicals

[via RT]

# New Ticket Created by  cygx 
# Please include the string:  [perl #131548]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=131548 >


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