Don't even define a CLONE sub when the module isn't thread safe

[perl/modules/Scope-Upper.git] / Upper.xs

diff --git a/Upper.xs b/Upper.xs
index c93f44d6c78b070cd0eb0c9b0cb3c508ede1a2f3..cba5d3d048b81e46ad212c51ae6714df5e89d2e5 100644 (file)
--- 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 *