X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=indirect.xs;h=2f8ab7de7e87bb461ade74f6d9431b0ce952d8df;hp=696cf5e2a16062e687021062ce48b17dd34e9c01;hb=235bb30e464dc25a35a75cd99d71caa0a97c2230;hpb=e52e46d63fcc5d907982a0712d991f3da412b483

diff --git a/indirect.xs b/indirect.xs
index 696cf5e..2f8ab7d 100644
--- a/indirect.xs
+++ b/indirect.xs
@@ -347,8 +347,14 @@ STATIC OP *indirect_ck_entersub(pTHX_ OP *o) {
    goto done;
 
   mpos = indirect_map_fetch(mop, &mnamesv);
+  if (!mpos)
+   goto done;
+
   opos = indirect_map_fetch(oop, &onamesv);
-  if (mpos && opos && mpos < opos) {
+  if (!opos)
+   goto done;
+
+  if (mpos < opos) {
    const char *mname = SvPV_nolen_const(mnamesv);
    const char *oname = SvPV_nolen_const(onamesv);
    if (hint == 2)