Change 13055 by jhi@alpha on 2001/11/16 19:03:39
It's neither-nor, and protect against the impossible.
Affected files ...
.... //depot/perl/lib/Thread.pm#6 edit
Differences ...
==== //depot/perl/lib/Thread.pm#6 (text) ====
Index: perl/lib/Thread.pm
--- perl/lib/Thread.pm.~1~ Fri Nov 16 12:15:05 2001
+++ perl/lib/Thread.pm Fri Nov 16 12:15:05 2001
@@ -313,6 +313,10 @@
BEGIN {
if ($ithreads) {
+ if ($othreads) {
+ require Carp;
+ Carp::croak("This Perl has both ithreads and 5005threads (serious
+malconfiguration)");
+ }
XSLoader::load 'threads';
for my $m (qw(new join detach yield self tid equal)) {
no strict 'refs';
@@ -330,7 +334,7 @@
unimplement(qw(unlock));
} else {
require Carp;
- Carp::croak("This Perl has neither ithreads not 5005threads");
+ Carp::croak("This Perl has neither ithreads nor 5005threads");
}
}
End of Patch.
