From @moritz

12​:05 < moritz_> rakudo​: my @​a = 1, 2, 3; my @​b; my $c = @​b[0] = @​a[1];
say $c; say @​b[0];
12​:05 <+p6eval> rakudo : OUTPUT«2␤Any()␤»

both should be 2

12​:04 < moritz_> rakudo​: my @​b; my $c = @​b[0] = 1; say $c; say @​b[0];
12​:04 <+p6eval> rakudo : OUTPUT«1␤1␤»

... and it works fine if the right-most term is not an array item, but
rather a scalar.

Found while pursuing masak's coding contest, problem 5.

Cheers,
Moritz

From @kyleha

This is an automatically generated mail to inform you that tests are now available in S03-operators/assign.t

commit 1e438c8bafa5b88fce0181dc64484a423b2ca433
Author​: Kyle Hasselbacher <kyleha@​gmail.com>
Date​: Thu Dec 23 16​:01​:53 2010 -0600

  [assign] Test for RT 80614​: chained array item assignment

diff --git a/S03-operators/assign.t b/S03-operators/assign.t
index 0386e26..53e30c1 100644
--- a/S03-operators/assign.t
+++ b/S03-operators/assign.t
@@ -6,7 +6,7 @@ use Test;
 #                      V
 # L<S03/Changes to Perl 5 operators/list assignment operator now parses on the right>
 
-plan 242;
+plan 244;
 
 
 # tests various assignment styles
@@ -764,4 +764,15 @@ sub l () { 1, 2 };
     is $x, 5, '... with correct result';
 }
 
+# RT #80614
+{
+   my @a = 1,2,3;
+   my @b;
+   my $rt80614 = @b[0] = @a[1];
+
+   is $rt80614, 2, 'assignment to scalar via array item from array item';
+   #?rakudo todo 'RT 80614'
+   is @b[0], 2, 'assignment to array item from array item to scalar';
+}
+
 # vim: ft=perl6

The RT System itself - Status changed from 'new' to 'open'

From @coke

On Sun Dec 12 03​:09​:07 2010, moritz wrote​:

12​:05 < moritz_> rakudo​: my @​a = 1, 2, 3; my @​b; my $c = @​b[0] = @​a[1];
say $c; say @​b[0];
12​:05 <+p6eval> rakudo : OUTPUT«2␤Any()␤»

both should be 2

12​:04 < moritz_> rakudo​: my @​b; my $c = @​b[0] = 1; say $c; say @​b[0];
12​:04 <+p6eval> rakudo : OUTPUT«1␤1␤»

... and it works fine if the right-most term is not an array item, but
rather a scalar.

Found while pursuing masak's coding contest, problem 5.

Cheers,
Moritz

A test for this was added to S03-operators/assign.t - 2 tests in a block - one passes, one fails (and is todo'd) - but if you run that test directly (hoisting it out into its own file), it passes. very odd.

--
Will "Coke" Coleda

From @usev6

I tried to golf this (chained assignment and test failure) a bit and found the following​:

$ perl6-m -e 'my $x; $x = 1; my @​a; my $y = @​a[0] = 2; say @​a[0]'
2
$ perl6-m -e 'my $x; ($x) = 1; my @​a; my $y = @​a[0] = 2; say @​a[0]'
(Any)

The following looks weird as well​:

$ perl6-m -e 'my $y; my @​a = (); $y = @​a[0] = 2; say @​a[0]'
2
$ perl6-m -e 'my $y; my @​a; @​a = (); $y = @​a[0] = 2; say @​a[0]'
(Any)

@hoelzro - Status changed from 'open' to 'resolved'