# New Ticket Created by Stephane Payrard
# Please include the string: [perl #76698]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=76698 >
I don't know if this is a problem with my code, with the Rakudo
implementation or the spec.
I end up with a Seq at $a[3] where I want an Array. This is not
indifferent because if I later handle the resulting data comparing
with eqv a Seq with an Array never returns true.
$ perl6
> my $a = [ "this", "is", "so", "gross" ]; my $b = [ "that", "is",
"so", "funny" ]; my $c = $b[2..3]; $a[3] = @( $c ); say $a.perl
["this", "is", "so", ("so", "funny")]
> my $a = [ "this", "is", "so", "gross" ]; my $b = [ "that", "is",
"so", "funny" ]; my $c = $b[2..3]; $a[3] = $c ; say $a.perl
["this", "is", "so", ("so", "funny")]
> my $a = [ "this", "is", "so", "gross" ]; my $b = [ "that", "is",
"so", "funny" ]; my $c = $b[2..3]; $a[3] = $c ; say $a[3].WHAT
Seq()
$ perl6
> say @( 1, 2).perl; my $a = (1,2); say @( $a ).perl; my @a = (1,2); say
> @a.perl;
(1, 2)
(1, 2)
[1, 2]
> say (1, 2) eqv [1, 2]
0
--
cognominal stef
