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 *