From f159700fedd4f99a12c5dc78be9123be6136ed8f Mon Sep 17 00:00:00 2001
From: Slaven Rezic <
[email protected]>
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
