From: Artur Bergman <sky@nanisky.com>
Date: Fri, 26 Oct 2001 12:37:17 +0000 (+0000)
Subject: More Config::threads to threads::threads changes
X-Git-Tag: accepted/trunk/20130322.191538~29739
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=9ece3ee6650e9c2f6d5131c19ae5e80f2a8bfc4a;p=platform%2Fupstream%2Fperl.git

More Config::threads to threads::threads changes

p4raw-id: //depot/perl@12677
---

diff --git a/ext/threads/shared/shared.pm b/ext/threads/shared/shared.pm
index d928d26..d0d6cce 100644
--- a/ext/threads/shared/shared.pm
+++ b/ext/threads/shared/shared.pm
@@ -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;
diff --git a/ext/threads/t/basic.t b/ext/threads/t/basic.t
index 399b017..eca5c97 100755
--- a/ext/threads/t/basic.t
+++ b/ext/threads/t/basic.t
@@ -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