[perl #66658] [BUG] .wrap gets lexicals mixed up in Rakudo

[Carl Mäsak]

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


<japhb> rakudo: my @subs := (&greet,&meet); for @subs -> $sub {my
$name = $sub.name; say "Wrapping $name"; $sub.wrap({ say "Starting
$name"; callsame; say "Ending $name";});}; sub greet($person) { say
"Hello, $person" }; sub meet($person) { say "I see $person here." };
meet("world"); greet("world")
<p6eval> rakudo 9dc941: OUTPUT«Wrapping greet␤Wrapping meet␤Starting
meet␤I see world here.␤Ending meet␤Starting meet␤Hello, world␤Ending
meet␤»
<japhb> FAIL
<japhb> Last wrap wins.
<japhb> Am I doing something wrong, or is it a rakudobug?
<moritz_> what would you expect?
<japhb> moritz_: not saying both routines are named "meet"
<masak> indeed.
<moritz_> ah
<masak> that seems highly strange.
<moritz_> bug, then
* masak submits
<masak> japhb++
<japhb> thx, masak