From 9ece3ee6650e9c2f6d5131c19ae5e80f2a8bfc4a Mon Sep 17 00:00:00 2001 From: Artur Bergman Date: Fri, 26 Oct 2001 12:37:17 +0000 Subject: [PATCH] More Config::threads to threads::threads changes p4raw-id: //depot/perl@12677 --- ext/threads/shared/shared.pm | 2 +- ext/threads/t/basic.t | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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 -- 2.7.4