X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2Fthreads%2Fshared%2Fshared.xs;h=2680bbf8ad0dd8ea776887e1756b5fef2955aa27;hb=73e09c8fa5daeb8994c6d0aff5cfb8c4e65a7150;hp=3ee75429c60891db87af3b7bf5e1dea4ba309da6;hpb=35a51b2056f806b70a212f2c12a7cf3433732011;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/threads/shared/shared.xs b/ext/threads/shared/shared.xs
index 3ee7542..2680bbf 100644
--- a/ext/threads/shared/shared.xs
+++ b/ext/threads/shared/shared.xs
@@ -18,6 +18,8 @@
 #include "perl.h"
 #include "XSUB.h"
 
+#ifdef USE_ITHREADS
+
 #define SHAREDSvPTR(a)      ((a)->sv)
 
 /*
@@ -749,10 +751,13 @@ Perl_sharedsv_init(pTHX)
   PL_sharehook = &Perl_sharedsv_share;
 }
 
+#endif /* USE_ITHREADS */
+
 MODULE = threads::shared	PACKAGE = threads::shared::tie
 
 PROTOTYPES: DISABLE
 
+#ifdef USE_ITHREADS
 
 void
 PUSH(shared_sv *shared, ...)
@@ -1005,7 +1010,14 @@ cond_broadcast_enabled(SV *ref)
 	    croak("cond_broadcast can only be used on shared values");
 	COND_BROADCAST(&shared->user_cond);
 
+#endif /* USE_ITHREADS */
+
 BOOT:
 {
+#ifdef USE_ITHREADS
      Perl_sharedsv_init(aTHX);
+#endif /* USE_ITHREADS */
 }
+
+
+