From: Vincent Pit Date: Mon, 11 Aug 2008 09:36:26 +0000 (+0200) Subject: In ck_entersub, only try to recover the method name if it's actually a method X-Git-Tag: v0.02~9 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=3244106ca331b0d58c903b449f3c26af8f2d2d1e;p=perl%2Fmodules%2Findirect.git In ck_entersub, only try to recover the method name if it's actually a method --- diff --git a/indirect.xs b/indirect.xs index 328214f..67cba84 100644 --- a/indirect.xs +++ b/indirect.xs @@ -175,12 +175,15 @@ STATIC OP *indirect_ck_entersub(pTHX_ OP *o) { om = om->op_sibling; if (om->op_type == OP_METHOD) om = cUNOPx(om)->op_first; + else if (om->op_type != OP_METHOD_NAMED) + goto done; pm = indirect_map_fetch(om, &svm); po = indirect_map_fetch(oo, &svo); if (pm && po && pm < po) ((hint == 2) ? croak : warn)(indirect_msg, SvPV_nolen(svm), SvPV_nolen(svo)); } +done: return CALL_FPTR(indirect_old_ck_entersub)(aTHX_ o); }