Index: patch-Alias.xs =================================================================== --- patch-Alias.xs (revision 384635) +++ patch-Alias.xs (revision 384636) @@ -140,17 +140,21 @@ 140  tmp = kLISTOP->op_first; 140  tmp = kLISTOP->op_first; 141  if (inside) 141  if (inside) 142  op_null(tmp); 142  op_null(tmp); 143 @@ -2001,6 +2035,9 @@ STATIC OP *da_ck_entersub(pTHX_ OP *o) { 143 @@ -2001,6 +2035,13 @@ STATIC OP *da_ck_entersub(pTHX_ OP *o) { 144  while (kid->op_sibling != last) 144  while (kid->op_sibling != last) 145  kid = kid->op_sibling; 145  kid = kid->op_sibling; 146  kid->op_sibling = Nullop; 146  kid->op_sibling = Nullop; 147 +#ifdef op_sibling_splice 147 +#ifdef op_sibling_splice   148 +#if (PERL_COMBI_VERSION >= 5021011)   149 + kid->op_moresib = 0;   150 +#else 148 + kid->op_lastsib = 1; 151 + kid->op_lastsib = 1;   152 +#endif 149 +#endif 153 +#endif 150  cLISTOPx(cUNOPo->op_first)->op_last = kid; 154  cLISTOPx(cUNOPo->op_first)->op_last = kid; 151  if (kid->op_type == OP_NULL && inside) 155  if (kid->op_type == OP_NULL && inside) 152  kid->op_flags &= ~OPf_SPECIAL; 156  kid->op_flags &= ~OPf_SPECIAL; 153 @@ -2008,6 +2045,14 @@ STATIC OP *da_ck_entersub(pTHX_ OP *o) { 157 @@ -2008,6 +2049,14 @@ STATIC OP *da_ck_entersub(pTHX_ OP *o) { 154  return o; 158  return o; 155  } 159  } 156   160   @@ -165,7 +169,7 @@ 165   169   166  MODULE = Data::Alias PACKAGE = Data::Alias 170  MODULE = Data::Alias PACKAGE = Data::Alias 167   171   168 @@ -2025,6 +2070,10 @@ BOOT: 172 @@ -2025,6 +2074,10 @@ BOOT: 169  PL_check[OP_RV2CV] = da_ck_rv2cv; 173  PL_check[OP_RV2CV] = da_ck_rv2cv; 170  da_old_ck_entersub = PL_check[OP_ENTERSUB]; 174  da_old_ck_entersub = PL_check[OP_ENTERSUB]; 171  PL_check[OP_ENTERSUB] = da_ck_entersub; 175  PL_check[OP_ENTERSUB] = da_ck_entersub;