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

[Will Coleda via RT]

On Tue Apr 06 01:28:55 2010, masak wrote:
> <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

New failure mode:

10:51 < [Coke]> rakudo: my %h = a => '42'; given %h { when :(Int :$a) { say 
                "lol int" }when :(Str :$a) { say "lol string" } }
10:51 <+p6eval> rakudo 25af2d: OUTPUT«No applicable candidates found to 
                dispatch to for 'ACCEPTS'. Available candidates are:␤:(Mu, Mu 
                $topic, Mu %_)␤␤  in method ACCEPTS at 
                src/gen/CORE.setting:482␤  in sub infix:<~~> at 
                src/gen/CORE.setting:759␤  in block <anon> at 
                /tmp/Md_hLfFFlm:1␤  in block <anon> …

-- 
Will "Coke" Coleda