# define A_HAS_RPEEP A_HAS_PERL(5, 13, 5)
#endif
+#ifndef OpSIBLING
+# ifdef OP_SIBLING
+# define OpSIBLING(O) OP_SIBLING(O)
+# else
+# define OpSIBLING(O) ((O)->op_sibling)
+# endif
+#endif
+
/* ... Thread safety and multiplicity ...................................... */
/* Always safe when the workaround isn't needed */
case OP_HSLICE:
old_ck = a_old_ck_hslice;
if (hint & A_HINT_DO)
- a_recheck_rv2xv(cUNOPo->op_first->op_sibling, OP_RV2HV, a_pp_rv2hv);
+ a_recheck_rv2xv(OpSIBLING(cUNOPo->op_first), OP_RV2HV, a_pp_rv2hv);
break;
}
o = old_ck(aTHX_ o);
case OP_NEXTSTATE:
case OP_DBSTATE:
case OP_STUB:
+ case OP_UNSTACK:
if (ptable_fetch(seen, o))
return;
ptable_seen_store(seen, o, o);
GV *gv;
PPCODE:
{
- dMY_CXT;
#if A_WORKAROUND_REQUIRE_PROPAGATION
+ dMY_CXT;
{
a_ptable_clone_ud ud;