More Config::threads to threads::threads changes
Artur Bergman [Fri, 26 Oct 2001 12:37:17 +0000 (12:37 +0000)]
p4raw-id: //depot/perl@12677

ext/threads/shared/shared.pm
ext/threads/t/basic.t

index d928d26..d0d6cce 100644 (file)
@@ -7,7 +7,7 @@ use Scalar::Util qw(weaken);
 use attributes qw(reftype);
 
 BEGIN {
-    if($Config{'useithreads'} && $Config::threads) {
+    if($Config{'useithreads'} && $threads::threads) {
        *share = \&share_enabled;
        *cond_wait = \&cond_wait_disabled;
        *cond_signal = \&cond_signal_disabled;
index 399b017..eca5c97 100755 (executable)
@@ -69,7 +69,7 @@ threads->create('test3',1)->join();
 
 
 #check Config
-ok(5, 1 == $Config::threads,"Check that Config::threads is true");
+ok(5, 1 == $threads::threads,"Check that threads::threads is true");
 
 #test trying to detach thread