[perl #109322] [BUG] Lexical weirdness from blocks inside re-entrant subs in Rakudo

[Carl Mäsak via RT]

<Radvendii> nom: sub foo ($a, $f) { if $f { foo('z', 0) }; {$_=$a; say 
$a; say $_} }; foo('x', 1) #does it work explicitly?
<p6eval> nom 9719f7: OUTPUT«z␤z␤z␤z␤»
<Radvendii> ooh. that's even worse...
<masak> Radvendii: but it has exactly the same cause.
<Radvendii> masak: yup... i just realized that
<Radvendii> i thought it maybe had to do with the "given" statement 
itself
<masak> me too.
<masak> no, it's just blocks inside reentrant blocks.
* masak updates ticket