[perl #116182] [BUG] 's;' wrongly parsed as subroutine call in Rakudo

[Will Coleda via RT]

On Mon Mar 11 12:40:13 2013, jn...@jnthn.net wrote:
> On Sun Dec 23 14:29:06 2012, masak wrote:
> > <doy> r: sub s () { given 9 { return 0 when $_ %% 3; 1 } }; say s
> > <p6eval> rakudo c8de2e: OUTPUT«===SORRY!===␤Null regex not allowed 
> [...]
> > <doy> r: sub s () { given 9 { return 0 when $_ %% 3; 1 } }; say s;
> > <p6eval> rakudo c8de2e: OUTPUT«0␤»
> > <masak> that first one is arguably a bug.
> > <masak> r: sub s {}; say s
> > <p6eval> rakudo c8de2e: OUTPUT«===SORRY!===␤Null regex not allowed 
> [...]
> > * masak submits rakudobug
> > <masak> std: sub s {}; say s
> > <p6eval> std a8bc48f: OUTPUT«===SORRY!===␤No delimiter found
> > [...]Parse failed␤FAILED 00:00 42m␤»
> > <masak> std: sub s {}; say s;
> > <p6eval> std a8bc48f: OUTPUT«===SORRY!===␤Regex not terminated [...]
> > Parse failed␤FAILED 00:00 43m␤»
> > <masak> oh, ok.
> > <masak> it's the 's;' case that is wrongly parsed.
> 
> Looks better now:
> 
> > sub s () { given 9 { return 0 when $_ %% 3; 1 } }; say s;
> ===SORRY!===
> Regex not terminated
> 
> Tagging testneeded.
> 
> /jnthn

This has reverted to its original failing behavior:

21:05 < [Coke]> m: sub s () { given 9 { return 0 when $_ %% 3; 1 } }; say s
21:05 <+camelia> rakudo-moar 347c9a: OUTPUT«===SORRY!=== Error while compiling
                 /tmp/ag0yDBP3BL␤Null regex not allowed␤at
                 /tmp/ag0yDBP3BL:1␤------>  9 { return 0 when $_ %% 3; 1 } };
                 say s⏏<EOL>␤    expecting any of:␤        argument list␤
                 pre…»


-- 
Will "Coke" Coleda