[svn:dbi] r15248 - dbi/trunk

Author: timbo
Date: Mon Mar 26 14:47:22 2012
New Revision: 15248

Modified:
   dbi/trunk/Makefile.PL

Log:
Only grumble about threads for perl <= 5.12

Modified: dbi/trunk/Makefile.PL
==============================================================================
--- dbi/trunk/Makefile.PL	(original)
+++ dbi/trunk/Makefile.PL	Mon Mar 26 14:47:22 2012
@@ -49,12 +49,14 @@
 }
 
 if ($Config{useithreads}) {
-    print "\n";
-    print "*** You are using a perl configured with threading enabled.\n";
-    print "*** You should be aware that using multiple threads is\n";
-    print "*** not recommended for production environments.\n";
-    print "\n";
-    sleep 1;
+    if ($] < 5.012) { # recent perls are reasonably fre of thread bugs
+        print "\n";
+        print "*** You are using a perl configured with threading enabled.\n";
+        print "*** You should be aware that using multiple threads is\n";
+        print "*** not recommended for production environments.\n";
+        print "\n";
+        sleep 1;
+    }
     $::opt_thread = 1;
 }
 else {