Change 13040 by jhi@alpha on 2001/11/16 04:48:16
Avoid redefinedness warning for now.
Affected files ...
.... //depot/perl/lib/Thread.pm#3 edit
Differences ...
==== //depot/perl/lib/Thread.pm#3 (text) ====
Index: perl/lib/Thread.pm
--- perl/lib/Thread.pm.~1~ Thu Nov 15 22:00:05 2001
+++ perl/lib/Thread.pm Thu Nov 15 22:00:05 2001
@@ -316,7 +316,8 @@
no strict 'refs';
*{"Thread::$m"} = \&{"threads::shared::${m}_enabled"};
}
- unimplement(qw(list done eval flags));
+ # trying to unimplement eval gives redefined warning
+ unimplement(qw(list done flags));
} elsif ($othreads) {
XSLoader::load 'Thread';
unimplement(qw(unlock));
End of Patch.
