RE: pushing method handlers by reference

[Doug MacEachern]

On Sat, 25 Aug 2001, Geoffrey Young wrote:
 
>   cv = sv_2cv(sv, &stash, &gv, FALSE);
>   if (cv && (CvFLAGS(cv) & CVf_METHOD)) {
>     PUSHMARK(SP);
>     XPUSHs(newSVpv(HvNAME(stash),0));
>     PUTBACK;
>     perl_call_sv(sv, G_METHOD);
>   }

you should be able to use the current code:
is_method = 1; #based on your check
pclass = HvNAME(stash);
method = GvNAME(CvGV(cv));




---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]