[perl #74338] [BUG] Rakudo particularly dislikes the word 'Quad'

[Carl Mäsak]

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


<masak> std: subset Quad of Any; sub classify($_) { when Quad {}; when Quad {} }
<p6eval> std 30383: OUTPUT«ok 00:01 110m␤»
<masak> rakudo: subset Quad of Any; sub classify($_) { when Quad {};
when Quad {} }; say 'alive'
<p6eval> rakudo cb4521: OUTPUT«Unable to parse blockoid, couldn't find
final '}' [...]
<masak> rakudo: subset B of Any; sub classify($_) { when B {}; when B
{} }; say 'alive'
<p6eval> rakudo cb4521: OUTPUT«alive␤»
* masak confused
* masak submits rakudobug

I, um... what?