# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #82812]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=82812 >
<masak> rakudo: my @a; @a ||= -1, -1, +1, +1; say @a.perl
<p6eval> rakudo 188755: OUTPUT«[-1]»
<masak> is ||= always item assignment?
<jnthn> Not sure off hand.
<jnthn> masak: See if STD.pm6 around 3326 makes any sense to you :)
* masak looks
<jnthn> There's some condition in there that determines whether it's
list or item assignment.
<masak> makes a lot of sense.
<jnthn> Rakudo gets it RONG
<jnthn> token infix_postfix_meta_operator:sym<=> { '=' <O('%item_assignment')> }
<jnthn> Unconditionally item ass.
<jnthn> Not sure how hard it is to port the STD thingy.
<jnthn> Probably not too bad.
<masak> right. ||= should be item ass., though.
<jnthn> Ah, OK.
<jnthn> Oh yeah
<jnthn> It's about the op
<masak> nod
<jnthn> Not $*LEFTSIGIL
<jnthn> So yes, it is always item assignment. :)
<masak> I should use or= if I want list assignment.
<masak> rakudo: my @a; @a or= 1, 2, 3, 4; say @a.perl
<p6eval> rakudo 188755: OUTPUT«[1]»
* masak submits rakudobug
<masak> :)
<jnthn> apart from...yeah. :P
<masak> either it works, and I win. or I can submit a bug from it, and
I win. I like this game. :P
<jnthn> Then I write a patch and I win. :P
