[perl #120676] [BUG] Some bad interaction between heredocs and the closing curly rule in Rakudo

[Carl Mäsak]

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


<masak> p: sub stuff { say q:to/END/ }␤OH HAI␤   WORLD␤END␤stuff
<camelia> rakudo-parrot b227e6: OUTPUT«===SORRY!=== Error while
compiling /tmp/bSrjIFhoVF␤Confused␤at /tmp/bSrjIFhoVF:5␤------>
<BOL>⏏stuff [...]
<masak> bleh.
<jnthn> std: sub stuff { say q:to/END/ }␤OH HAI␤   WORLD␤END␤stuff
<camelia> std 3b262af: OUTPUT«ok 00:01 124m␤»
* masak submits rakudobug
<jnthn> p: sub stuff { say q:to/END/ };␤OH HAI␤   WORLD␤END␤stuff
<camelia> rakudo-parrot b227e6: OUTPUT«OH HAI␤   WORLD␤␤»
<jnthn> Looks like some bad interaction between heredocs and the
closing curly rule.
<masak> double bleh.
<jnthn> Well, not really. That golfs it to something smaller/more huntable.
<masak> p: sub x { say q:to/A/ }␤A␤x
<camelia> rakudo-parrot b227e6: OUTPUT«===SORRY!=== Error while
compiling /tmp/skxXrbOobv␤Confused␤at /tmp/skxXrbOobv:3␤------>
<BOL>⏏x [...]
<masak> p: sub x { say q:to/A/ };␤A␤x
<camelia> rakudo-parrot b227e6: OUTPUT«␤»
<masak> jnthn: indeed :)