X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=indirect.xs;fp=indirect.xs;h=ec570d7fec22ce58d4a4a2f404a57ad66394e28e;hp=3a977f04e8eb1b4468c3d2dc9a01ce056539c57a;hb=6f86033f2d299addd4279cfbdf681e866aa9570d;hpb=151cd36187c8ee6100e515cfb94ed3334a3ae9e3

diff --git a/indirect.xs b/indirect.xs
index 3a977f0..ec570d7 100644
--- a/indirect.xs
+++ b/indirect.xs
@@ -63,8 +63,12 @@
 # define HvNAMELEN_get(H) strlen(HvNAME_get(H))
 #endif
 
-#ifndef OP_SIBLING
-# define OP_SIBLING(O) ((O)->op_sibling)
+#ifndef OpSIBLING
+# ifdef OP_SIBLING
+#  define OpSIBLING(O) OP_SIBLING(O)
+# else
+#  define OpSIBLING(O) ((O)->op_sibling)
+# endif
 #endif
 
 #define I_HAS_PERL(R, V, S) (PERL_REVISION > (R) || (PERL_REVISION == (R) && (PERL_VERSION > (V) || (PERL_VERSION == (V) && (PERL_SUBVERSION >= (S))))))
@@ -861,7 +865,7 @@ STATIC OP *indirect_ck_entersub(pTHX_ OP *o) {
     goto done;
    oop = lop->op_first;
   } while (oop->op_type != OP_PUSHMARK);
-  oop = OP_SIBLING(oop);
+  oop = OpSIBLING(oop);
   mop = lop->op_last;
 
   if (!oop)