From: Vincent Pit <vince@profvince.com>
Date: Wed, 4 Feb 2009 22:34:39 +0000 (+0100)
Subject: Don't even define a CLONE sub when the module isn't thread safe
X-Git-Tag: v0.07~7
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=b608ef9d319ec77f82c32837676ab68cc2e6b4cc;p=perl%2Fmodules%2FScope-Upper.git

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

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 *