[perl #78234] [BUG] Declaring a sub in a given block makes calling the sub emit silly errors in Rakudo

[Carl Mäsak]

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


<masak> rakudo: given $_ { sub foo($text) { $text }; say foo($_) }
<p6eval> rakudo 2ee5db: OUTPUT«Too many positional parameters passed;
got 1 but expected 0 [...]
<jnthn> masak: Something looks rotten there.
<masak> rakudo: sub foo($text) { $text }; given $_ { foo($_) }
<p6eval> rakudo 2ee5db:  ( no output )
<masak> rakudo: sub foo($text) { $text }; given $_ { say foo($_) }
<p6eval> rakudo 2ee5db: OUTPUT«Any()␤»
<jnthn> oh
<jnthn> leaky contextual?
<masak> jnthn: no idea.
<jnthn> Feels lajk.
* masak submits rakudobug
<jnthn> masak++
<masak> rakudo: given $_ { sub foo($text) { $text }; say foo() }
<p6eval> rakudo 2ee5db: OUTPUT«Too many positional parameters passed;
got 1 ut expected 0 [...]
<masak> there's just no way to please this error.