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


$ perl6
>  say (0,0,0,0,0,0) >>+>> ((1,2) xx *)
Use of uninitialized value
Use of uninitialized value
Use of uninitialized value
Use of uninitialized value
Use of uninitialized value
Use of uninitialized value
Use of uninitialized value
000000
> my @x=(9); say @x[*-1]; say (0,0,0,0,0,0) >>+>> ((1,2) xx *)
9
122222
> my @x=(7,8); say @x[*-1]; say (0,0,0,0,0,0) >>+>> ((1,2) xx *)
8
121222
> my @x=(4,5,6); say @x[*-1]; say (0,0,0,0,0,0) >>+>> ((1,2) xx *)
6
121212




$ perl6 -v
This is Rakudo Perl 6, revision 38505 built on parrot 1.1.0-devel
for OpenBSD.i386-openbsd-thread-multi.

Reply via email to