* when the new sub scope will be created in call_sv. */
#if SU_HAS_PERL(5, 10, 0)
- if (dieing)
+ if (dieing) {
if (cxstack_ix < cxstack_max)
++cxstack_ix;
else
cxstack_ix = Perl_cxinc(aTHX);
+ }
#endif
call_sv(ud->cb, G_VOID);
newXSproto("Scope::Upper::unwind", XS_Scope__Upper_unwind, file, NULL);
}
+#if SU_THREADSAFE
+
void
CLONE(...)
PROTOTYPE: DISABLE
CODE:
PERL_UNUSED_VAR(items);
-#if SU_THREADSAFE
MY_CXT_CLONE;
+
#endif /* SU_THREADSAFE */
SV *