[perl #78102] [BUG] .wrap doesn't return a handle with a .restore method in Rakudo

[Carl Mäsak]

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


<masak> rakudo: sub wolf { say "om nom nom" }; sub sheep { say
"baah!"; callsame }; &wolf.wrap(&sheep); wolf()
<p6eval> rakudo 0bf6cb: OUTPUT«baah!␤om nom nom␤»
<masak> rakudo: sub wolf { say "om nom nom" }; sub sheep { say
"baah!"; callsame }; say (&wolf.wrap(&sheep)).WHAT
<p6eval> rakudo 0bf6cb: OUTPUT«Int()␤»
<masak> Int? o.O
<masak> rakudo: sub wolf { say "om nom nom" }; sub sheep { say
"baah!"; callsame }; say (&wolf.wrap(&sheep))
<p6eval> rakudo 0bf6cb: OUTPUT«2␤»
* masak consults ze spec
<masak> S06:2685 says "The call to C<.wrap> returns a unique handle
that has a C<restore> method that will undo the wrapping"
<masak> hence, it cannot be an Int.
* masak submits rakudobug