X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2Fthreads%2Fthreads.pm;h=11878eb56ec4b2d3d15a34f5f52853623cadc334;hb=73e09c8fa5daeb8994c6d0aff5cfb8c4e65a7150;hp=12a9afa57254de1b1070176062af15d89e7cb067;hpb=35a51b2056f806b70a212f2c12a7cf3433732011;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/threads/threads.pm b/ext/threads/threads.pm
index 12a9afa..11878eb 100755
--- a/ext/threads/threads.pm
+++ b/ext/threads/threads.pm
@@ -1,8 +1,31 @@
 package threads;
 
-use 5.007_002;
+use 5.007_003;
 use strict;
 use warnings;
+use Config;
+
+BEGIN {
+    unless ($Config{useithreads}) {
+	my @caller = caller(2);
+        die <<EOF;
+$caller[1] line $caller[2]:
+
+This Perl hasn't been configured and built properly for the threads
+module to work.  (The 'useithreads' configuration option hasn't been used.)
+
+Having threads support requires all of Perl and all of the modules in
+the Perl installation to be rebuilt, it is not just a question of adding
+the threads module.  (In other words, threaded and non-threaded Perls
+are binary incompatible.)
+
+If you want to the use the threads module, please contact the people
+who built your Perl.
+
+Cannot continue, aborting.
+EOF
+    }
+}
 
 use overload
     '==' => \&equal,