mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-27 01:44:43 +00:00
Code Issues Packages Projects Releases Wiki Activity

More Config::threads to threads::threads changes

Browse Source 
p4raw-id: //depot/perl@12677
This commit is contained in:
Artur Bergman 2001-10-26 12:37:17 +00:00
parent 8222d950c8
commit 9ece3ee665
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ext/threads/shared/shared.pm
View 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;

2
ext/threads/t/basic.t
View File

@ -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