X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=mop.c;h=65aa92502525c62c9176cdd22a7529eb473b4da3;hb=refs%2Ftags%2F0.92;hp=dfb178b5f62218eb0e984f3e7d03e23950cb047e;hpb=2087a201ef6c5f93fa2f3a0d1a59a399ff689828;p=gitmo%2FClass-MOP.git diff --git a/mop.c b/mop.c index dfb178b..65aa925 100644 --- a/mop.c +++ b/mop.c @@ -93,18 +93,15 @@ mop_get_code_info (SV *coderef, char **pkg, char **name) we hit it without the guard, we segfault. The slightly odd return value strikes me as an improvement (mst) */ -#ifdef isGV_with_GP + if ( isGV_with_GP(CvGV(coderef)) ) { -#endif GV *gv = CvGV(coderef); *pkg = HvNAME( GvSTASH(gv) ? GvSTASH(gv) : CvSTASH(coderef) ); *name = GvNAME( CvGV(coderef) ); -#ifdef isGV_with_GP } else { *pkg = "__UNKNOWN__"; *name = "__ANON__"; } -#endif return 1; }