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 {
