From f159700fedd4f99a12c5dc78be9123be6136ed8f Mon Sep 17 00:00:00 2001 From: Slaven Rezic Date: Tue, 21 Apr 2015 21:37:57 +0200 Subject: [PATCH] op_lastsib was changed to op_moresib in perl 5.21.11 --- Alias.xs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/Alias.xs b/Alias.xs index 2731c29..209aeb7 100644 --- a/Alias.xs +++ b/Alias.xs @@ -2036,8 +2036,12 @@ STATIC OP *da_ck_entersub(pTHX_ OP *o) { kid = kid->op_sibling; kid->op_sibling = Nullop; #ifdef op_sibling_splice +#if (PERL_COMBI_VERSION >= 5021011) + kid->op_moresib = 0; +#else kid->op_lastsib = 1; #endif +#endif cLISTOPx(cUNOPo->op_first)->op_last = kid; if (kid->op_type == OP_NULL && inside) kid->op_flags &= ~OPf_SPECIAL; -- 2.1.2