[perl #114428] [BUG] Subroutines created using 'sub ::(some_constant)' get the wrong name in Rakudo

[Carl Mäsak]

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


<moritz> r: constant name = 'foo'; sub ::(name) () { 42 }; say foo()
<p6eval> rakudo 34e8d4: OUTPUT«===SORRY!===␤CHECK FAILED:␤Undefined
routine '&foo' called (line 1)␤»
<jnthn> r: constant name = 'foo'; say (sub ::(name) () { 42 }).name
<p6eval> rakudo 34e8d4: OUTPUT«::(name)␤»
<jnthn> fel!
* masak submits rakudobug