On Sun Jun 27 14:16:46 2010, pkailasa wrote:
> # this fails
> >> perl6 -e 'my @a = 0, 1, 2; for @a { if $_ { $_++ } }; say @a.perl'
> [0, 1, 2]

It now works in current Rakudo:

    pmich...@plum:~/rakudo$ cat x
    my @a = 0, 1, 2;
    for @a { if $_ { $_++ } };
    say @a.perl;
    pmich...@plum:~/rakudo$ ./perl6 x
    [0, 2, 3]

Assigning to moritz for spectest coverage.

Pm

Reply via email to