From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 16 Nov 2001 19:03:39 +0000 (+0000)
Subject: It's neither-nor, and protect against the impossible.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=733129fea5e355adc21fc0f9e23ba448f59c5de3;p=p5sagit%2Fp5-mst-13.2.git

It's neither-nor, and protect against the impossible.

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

diff --git a/lib/Thread.pm b/lib/Thread.pm
index 3aa6162..fc39769 100644
--- a/lib/Thread.pm
+++ b/lib/Thread.pm
@@ -313,6 +313,10 @@ sub unimplement {
 
 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 @@ BEGIN {
 	unimplement(qw(unlock));
     } else {
 	require Carp;
-	Carp::croak("This Perl has neither ithreads not 5005threads");
+	Carp::croak("This Perl has neither ithreads nor 5005threads");
     }
 }