[perl #74084] [BUG] Rakudo wrongly accepts a case of a 'when' immediately following a block without intermediate semicolon or newline, STD.pm doesn't

[Carl Mäsak]

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


<masak> rakudo: my %h = a => '42'; given %h { when :(Int :$a) { say
"lol int" }when :(Str :$a) { say "lol string" } }
<p6eval> rakudo 3b1d34: OUTPUT«lol string␤»
<masak> std: my %h = a => '42'; given %h { when :(Int :$a) { say "lol
int" }when :(Str :$a) { say "lol string" } }
<p6eval> std 30327: OUTPUT«===SORRY!===␤Strange text
after block (missing comma, semicolon, comment marker?) [...] FAILED
* masak submits rakudobug