[perl #76444] [BUG] 'say (my $a) = 1, 2, 3' parses as '(say my $a) = 1, 2, 3' in Rakudo (but as 'say ((my $a) = 1, 2, 3)' in STD.pm6)

[Carl Mäsak via RT]

On Tue Jan 10 17:17:55 2012, coke wrote:
> On Sat Jul 10 07:02:24 2010, masak wrote:
> > <masak> rakudo: say (my $a) = 1,2,3; say $a # discovered by
> TimToady++
> > <p6eval> rakudo 692aa1: OUTPUT«Any()␤»
> > <masak> did it ever get reported?
> > <jnthn> rakudo: say ((my $a) = 1,2,3);
> > <p6eval> rakudo 692aa1: OUTPUT«1 2 3␤»
> > <jnthn> rakudo: (say (my $a)) = 1,2,3;
> > <p6eval> rakudo 692aa1: OUTPUT«Any()␤»
> > <masak> ah.
> > <jnthn> It's only a bug if it's not meant to have parsed as the
> second
> > of those.
> > * masak asks viv
> > <masak> viv puts the 'say' outermost. http://gist.github.com/470719
> > * masak submits rakudobug
> 
> 20:16 < [Coke]> rakudo: say (my $a) = 1,2,3; say $a
> 20:16 <+p6eval> rakudo 38165a: OUTPUT«1 2 3␤1 2 3␤»
> 20:16 < [Coke]> rakudo: say ((my $a) = 1,2,3);
> 20:16 <+p6eval> rakudo 38165a: OUTPUT«1 2 3␤»
> 20:17 < [Coke]> rakudo: (say (my $a)) = 1,2,3;
> 20:17 <+p6eval> rakudo 38165a: OUTPUT«Any()␤Cannot assign to a non-
> container␤
>                 in block <anon> at /tmp/df58A5abKz:1␤  in <anon> at
>                 /tmp/df58A5abKz:1␤»
> 
> 
> Closable?

Aye. Does it need a spectest? Marking as needstest just in case.