# New Ticket Created by Stephane Payrard
# Please include the string: [perl #76700]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=76700 >
I am trying to to obtain ["this", "is", "so", ["so", "funny"]] for
the value of $a.
Without success.
Getting ["this", "is", "so", ("so", "funny")] bites me down the road
because a Seq and an Array with the same content do not compare as
equal.
> 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()
> say @( 1, 2).perl; my $a = (1,2); say @( $a ).perl; my @a = (1,2); say
> @a.perl;
(1, 2)
(1, 2)
[1, 2]
> (1,2) eqv [1,2]
0
--
cognominal stef
