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

[Carl Mäsak]

# New Ticket Created by  "Carl Mäsak" 
# Please include the string:  [perl #75230]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=75230 >


<diakopter> rakudo: say 1 if 2 if 3 { say 3 }
<p6eval> rakudo e6863e: OUTPUT«1␤3␤»
<jnthn> o_O
<diakopter> o!O
<diakopter> rakudo: say 1 if 0 if 1 { say 3 } # masak
<p6eval> rakudo e6863e: OUTPUT«3␤»
* masak submits rakudobug

Judging from the outputs above, it seems like Rakudo hallucinates a
semicolon, creating 'say 1 if 2; if 3 { say 3 }' and 'say 1 if 0; if 3
{ say 3 }', respectively.

This currently seems to be a parsing bug in STD also.

<diakopter> std: say 1 if 2 if 3 { say 3 }
<p6eval> std 30732: OUTPUT«ok 00:01 111m␤»
<masak> o.O
<jnthn> Well, at least we're consistent.
<jnthn> (with STD)
<jnthn> :-)