From: Vincent Pit Date: Fri, 6 Feb 2015 13:38:38 +0000 (+0100) Subject: Really be compatible with the OP_PARENT feature X-Git-Tag: rt100068~15 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=6f86033f2d299addd4279cfbdf681e866aa9570d;p=perl%2Fmodules%2Findirect.git Really be compatible with the OP_PARENT feature OP_SIBLING() has been renamed to OpSIBLING() in perl 5.21.7. --- 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)