Integrate change #12747 from maintperl;

[p5sagit/p5-mst-13.2.git] / ext / threads / shared / shared.pm

diff --git a/ext/threads/shared/shared.pm b/ext/threads/shared/shared.pm
index d0d6cce..b212a41 100644 (file)
--- 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;