From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 16 Nov 2001 04:44:30 +0000 (+0000)
Subject: use strict.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4038bebf1e10fe7b46c1e36dbec84ce8b696de6b;p=p5sagit%2Fp5-mst-13.2.git

use strict.

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

diff --git a/lib/Thread.pm b/lib/Thread.pm
index b6be663..d3e27e1 100644
--- a/lib/Thread.pm
+++ b/lib/Thread.pm
@@ -2,15 +2,20 @@ package Thread;
 
 $VERSION = '2.00';
 
+use strict;
+
+our $ithreads;
+our $othreads;
+
 BEGIN {
     use Config;
-    our $ithreads = $Config{useithreads};
-    our $othreads = $Config{use5005threads};
+    $ithreads = $Config{useithreads};
+    $othreads = $Config{use5005threads};
 }
 
 require Exporter;
 use XSLoader ();
-our($VERSION, @ISA, @EXPORT);
+our($VERSION, @ISA, @EXPORT, @EXPORT_OK);
 
 @ISA = qw(Exporter);
 
@@ -294,6 +299,7 @@ sub unimplemented {
 
 sub unimplement {
     for my $m (@_) {
+	no strict 'refs';
 	*{"Thread::$m"} = sub { unimplemented $m };
     }
 }
@@ -302,10 +308,12 @@ BEGIN {
     if ($ithreads) {
 	XSLoader::load 'threads';
 	for my $m (qw(new join detach yield self tid equal)) {
+	    no strict 'refs';
 	    *{"Thread::$m"} = \&{"threads::$m"};
 	}
 	XSLoader::load 'threads::shared';
 	for my $m (qw(cond_signal cond_broadcast cond_wait unlock share)) {
+	    no strict 'refs';
 	    *{"Thread::$m"} = \&{"threads::shared::${m}_enabled"};
 	}
 	unimplement(qw(list done eval flags));