andthen weirdness with lexicals

[p6rt]

Migrated from rt.perl.org#131548 (status was 'resolved')

Searchable as RT131548$

[p6rt]

From cygx@cpan.org

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

[p6rt]

From @zoffixznet

On Fri, 09 Jun 2017 12​:48​:55 -0700, cygx@​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​: rakudo/rakudo@1ee89b5
Test​: Raku/roast@2f29987

[p6rt]

The RT System itself - Status changed from 'new' to 'open'

[p6rt]

@zoffixznet - Status changed from 'open' to 'resolved'