From @masak

<tylercurtis> rakudo​: my @​foo; push(@​foo, 1, 2, 3); @​foo.perl.say
<p6eval> rakudo 894e79​: OUTPUT«[1, 2, 3]␤»
<tylercurtis> rakudo​: my @​foo; @​foo ,= 1, 2, 3; @​foo.perl.say
<p6eval> rakudo 894e79​: OUTPUT«[1]␤»
<tylercurtis> S03​: "@​foo ,= 1,2,3 # same as push(@​foo,1,2,3)"
<masak> well spotted.
* masak submits rakudobug
<masak> tylercurtis++

@coke - Status changed from 'new' to 'open'

From @coke

On Wed Jul 07 15​:35​:30 2010, masak wrote​:

<tylercurtis> rakudo​: my @​foo; push(@​foo, 1, 2, 3); @​foo.perl.say
<p6eval> rakudo 894e79​: OUTPUT«[1, 2, 3]␤»
<tylercurtis> rakudo​: my @​foo; @​foo ,= 1, 2, 3; @​foo.perl.say
<p6eval> rakudo 894e79​: OUTPUT«[1]␤»
<tylercurtis> S03​: "@​foo ,= 1,2,3 # same as push(@​foo,1,2,3)"
<masak> well spotted.
* masak submits rakudobug
<masak> tylercurtis++

This now fails with​:

20​:44 < [Coke]> rakudo​: my @​foo; @​foo ,= 1, 2, 3; @​foo.perl.say
20​:44 <+p6eval> rakudo 63326f​: OUTPUT«splice() not implemented in class 'Mu'␤
  in method reify at src/gen/CORE.setting​:3952␤ in method gimme
  at src/gen/CORE.setting​:4313␤ in method eager at
  src/gen/CORE.setting​:4288␤ in method STORE at
  src/gen/CORE.setting​:4707␤ in block <anon> at
  /tmp/NXMhYHJgd8​:1…

--
Will "Coke" Coleda

From @moritz

Back to the original state​:

09​:10 < moritz> rakudo​: my @​foo; @​foo ,= 1, 2, 3; @​foo.perl.say
09​:10 <+p6eval> rakudo 197e0b​: OUTPUT«Array.new(1)␤»

From @usev6

This now emits a warning about useless use of "," in sink context, but the result hasn't changed​:

$ perl6 -e 'my @​foo; @​foo ,= 1, 2, 3; @​foo.perl.say'
WARNINGS​:
Useless use of "," in expression ",= 1, 2, 3" in sink context (line 1)
Array.new(1)

I added a test (fudged "todo") to S03-operators/assign.t with commit Raku/roast@3e737ee253

From @Mouq

Fixed in Rakudo commit​:

commit 34669da476fb9cce4e55ffdc72e89d3dded83cf0
Author​: Mouq <alexmoquin@​gmail.com>
Date​: Sat Feb 7 20​:30​:40 2015 -0500

  Improve metaop​:<=>

  Dies in the case of fiddly/diffy operators, and now adjusts to the
  proper precedence depending on the operator

Behavior now​:

$ perl6 -e 'my @​foo; @​foo ,= 1, 2, 3; @​foo.perl.say'
Array.new(1, 2, 3)

Marking as resolved :)

On Sat Nov 22 02​:22​:41 2014, bartolin@​gmx.de wrote​:

This now emits a warning about useless use of "," in sink context, but
the result hasn't changed​:

$ perl6 -e 'my @​foo; @​foo ,= 1, 2, 3; @​foo.perl.say'
WARNINGS​:
Useless use of "," in expression ",= 1, 2, 3" in sink context (line 1)
Array.new(1)

I added a test (fudged "todo") to S03-operators/assign.t with commit
Raku/roast@3e737ee253

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

#1915 adapted test to match post-GLR behaviour