# New Ticket Created by [email protected]
# Please include the string: [perl #131245]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=131245 >
# 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
