X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Upper.xs;h=cba5d3d048b81e46ad212c51ae6714df5e89d2e5;hb=b608ef9d319ec77f82c32837676ab68cc2e6b4cc;hp=c93f44d6c78b070cd0eb0c9b0cb3c508ede1a2f3;hpb=47674ecc2f95e381064eefa5124221498151b02d;p=perl%2Fmodules%2FScope-Upper.git diff --git a/Upper.xs b/Upper.xs index c93f44d..cba5d3d 100644 --- a/Upper.xs +++ b/Upper.xs @@ -722,13 +722,15 @@ BOOT: 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 *