X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2Fthreads%2Fshared%2Fshared.pm;h=b212a4127516e4242f5dfc5c299b5fcf8bff186b;hb=dd7038b3248009b72165c22a9d4a9159e93f8cfc;hp=d0d6cce30c92dc172c921e44f8335329a461ce94;hpb=9ece3ee6650e9c2f6d5131c19ae5e80f2a8bfc4a;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/threads/shared/shared.pm b/ext/threads/shared/shared.pm
index d0d6cce..b212a41 100644
--- a/ext/threads/shared/shared.pm
+++ b/ext/threads/shared/shared.pm
@@ -9,13 +9,16 @@ use attributes qw(reftype);
 BEGIN {
     if($Config{'useithreads'} && $threads::threads) {
 	*share = \&share_enabled;
+	*cond_wait = \&cond_wait_enabled;
+	*cond_signal = \&cond_signal_enabled;
+	*cond_broadcast = \&cond_broadcast_enabled;
+	*unlock = \&unlock_enabled;
+    } else {
+	*share = \&share_disabled;
 	*cond_wait = \&cond_wait_disabled;
 	*cond_signal = \&cond_signal_disabled;
-	*cond_broadcast = \&cond_broadcast_disabled;
+	*cond_broadcast = \&cond_broadcast_dosabled;
 	*unlock = \&unlock_disabled;
-	*lock = \&lock_disabled;
-    } else {
-	*share = \&share_enabled;
     }
 }
 
@@ -23,7 +26,7 @@ require Exporter;
 require DynaLoader;
 our @ISA = qw(Exporter DynaLoader);
 
-our @EXPORT = qw(share cond_wait cond_broadcast cond_signal unlock lock);
+our @EXPORT = qw(share cond_wait cond_broadcast cond_signal unlock);
 our $VERSION = '0.01';
 
 our %shared;