Now passes old test case.

p4raw-id: //depot/perl@16315

diff --git a/ext/threads/shared/semaphore.pm b/ext/threads/shared/semaphore.pm
index f8aa3e0..06cc78e 100644 (file)
--- a/ext/threads/shared/semaphore.pm
+++ b/ext/threads/shared/semaphore.pm
@@ -74,17 +74,17 @@ sub new {
 
 sub down {
     my $s = shift;
-    lock($s);
+    lock($$s);
     my $inc = @_ ? shift : 1;
-    cond_wait $s until $$s >= $inc;
+    cond_wait $$s until $$s >= $inc;
     $$s -= $inc;
 }
 
 sub up {
     my $s = shift;
-    lock($s);
+    lock($$s);
     my $inc = @_ ? shift : 1;
-    ($$s += $inc) > 0 and cond_broadcast $s;
+    ($$s += $inc) > 0 and cond_broadcast $$s;
 }
 
 1;