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

[Carl Mäsak]

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


<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.