On Tue, 02 May 2017 10:42:33 -0700, [email protected] wrote:
>
> # create an array of 5 elements, remove 2, add a fifth one leaving 4th
> empty
>
> $ perl -e 'my @a=(1,2,3,4,5); pop(@a); pop(@a); $a[4]="hi"; print
> join(",", @a)."\n";'
>
> 1,2,3,,hi
>
>
>
> $ perl6 -e 'my @a=(1,2,3,4,5); @a.pop; @a.pop, @a[4]="hi"; say
> @a.join(",");'
>
> 1,2,3,4,hi
>
> Ouch!
>
>
>
> $ perl6 -v
>
> This is Rakudo version 2017.04.3-160-g08a8075 built on MoarVM version
> 2017.04-44-gf0db882
>
> implementing Perl 6.c.
>
> Sent from Yahoo Mail on Android
Thank you for the report. This is now fixed.
Fix:
https://github.com/perl6/nqp/commit/7f71ec87e8d2a0
https://github.com/MoarVM/MoarVM/commit/8ad18b8460
https://github.com/rakudo/rakudo/commit/c776c0879e
Tests:
https://github.com/perl6/roast/commit/2973f845c8
