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

[Will Coleda via RT]

On Tue Sep 28 08:10:20 2010, masak wrote:
> <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

19:11 <@Coke> rakudo: sub wolf { say "om nom nom" }; sub sheep { say "baah!"; 
              callsame }; &wolf.wrap(&sheep); wolf()
19:11 <+p6eval> rakudo ef4702: OUTPUT«Method 'wrap' not found for invocant of 
                class 'Sub'␤  in block <anon> at /tmp/LoR8npY1O1:1␤  in <anon> 
                at /tmp/LoR8npY1O1:1␤»



-- 
Will "Coke" Coleda