[perl #121229] [BUG] Unnecessary semicolon required after closing block brace in :my token declaration inside regex in Rakudo

[Carl Mäsak]

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


The following gist is referred to by the IRC conversation:

say "+123.456e10" ~~ /
        :my token SIGN     {  <[+-]>                  }
        :my token MANTISSA {  \d+ '.'? \d* | '.' \d+  }
        :my token EXPONENT {  <[eE]> <SIGN>? \d+      }

        <SIGN>?  <MANTISSA>  <EXPONENT>?
    /

<TimToady> p6: https://gist.github.com/anonymous/8928045
<camelia> niecza v24-109-g48a8de3: OUTPUT«｢+123.456e10｣␤ SIGN => ｢+｣␤
MANTISSA => ｢123.456｣␤ EXPONENT => ｢e10｣␤␤»
<camelia> ..rakudo-parrot 260cd7, rakudo-jvm 260cd7, rakudo-moar
260cd7: OUTPUT«===SORRY!=== Error while compiling
/tmp/tmpfile␤Unrecognized regex modifier :my␤at /tmp/tmpfile:3␤------>
⏏:my token MANTISSA {  \d+ '.'? \d* | '.'␤    expectin…»
<TimToady> niecza++ and a rakudobug
<TimToady> rakudo requires an extra semicolon after the closing brace,
rather than relying on the end-of-statement semantics of normal Perl 6
* masak submits TimToady++'s rakudobug
<masak> TimToady++ # finding bugs through (I assume) RC solutions
<TimToady> this is actually not in response to an RC entry, but was a
suggestion from TheDamian++
<TimToady> he wants to be able to have internal token declarations so
that P6 regexen can be ported to other languages
<masak> oh, TheDamian++
<vendethiel> masak: you can do that ? COOL !
<masak> vendethiel: yeah, I just learned.
<PerlJam> vendethiel: apparently only in niecza :)