Fix thinko from 10dd5c05 - make sure we actually sleep

[dbsrgits/DBIx-Class.git] / t / 51threadtxn.t

diff --git a/t/51threadtxn.t b/t/51threadtxn.t
index 52a6966..6c781e5 100644 (file)
--- a/t/51threadtxn.t
+++ b/t/51threadtxn.t
@@ -29,6 +29,7 @@ plan skip_all => 'DBIC does not actively support threads before perl 5.8.5'
 
 use Scalar::Util 'weaken';
 use Time::HiRes qw(time sleep);
+use List::Util 'max';
 
 use DBICTest;
 
@@ -70,7 +71,7 @@ while(@children < $num_children) {
     my $newthread = async {
         my $tid = threads->tid;
 
-        sleep ($t - time);
+        sleep( max( 0.1, $t - time ) );
 
         # FIXME if we do not stagger the threads, sparks fly due to CXSA
         sleep ( $tid / 10 ) if "$]" < 5.012;