[perl #75230] [BUG] [WEIRD] 'say 1 if 0 if 1 { say 3 }' parsing bug in Rakudo (and STD)

[Will Coleda via RT]

On Tue May 29 12:15:49 2012, diakopter wrote:
> On Thu May 20 15:50:01 2010, masak wrote:
> > This currently seems to be a parsing bug in STD also.
> 
> FYI, now STD DTRT: 
> 
> 14:14 < diakopter> std: say 1 if 2 if 3 { say 3 }
> 14:14 <+p6eval> std f179a1b: OUTPUT«Use of uninitialized value $x in 
> pattern match (m//) at
>                 STD.pm line 66577.␤Use of uninitialized value $x in 
> concatenation (.) or
>                 string at STD.pm line 66616.␤===SORRY!===␤Missing 
> semicolon at
>                 /tmp/2yh3PPJvek line 1:␤------> say 1 if 2⏏[31…


STD changed for the better:

20:17 < [Coke]> std: say 1 if 2 if 3 { say 3 }
20:17 <+camelia> std 09dda5b: OUTPUT«===SORRY!===␤Missing semicolon at
                 /tmp/Ht45Fl9DU1 line 1:␤------> say 1 if 2⏏ if 3 { say 3
                 }␤Parse failed␤FAILED 00:01 123m␤»

Rakudo is correctly failing.

20:18 < [Coke]> m: say 1 if 2 if 3 { say 3 }
20:18 <+camelia> rakudo-moar b2b333: OUTPUT«===SORRY!=== Error while compiling
                 /tmp/EjEL_Q5O1j␤Confused␤at /tmp/EjEL_Q5O1j:1␤------> say 1 if
                 2 ⏏if 3 { say 3 }␤    expecting any of:␤        postfix␤»

The error is not the same as STD's, but I think it's good enough - closable 
with tests.
-- 
Will "Coke" Coleda