X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F50fork.t;h=229a4f249da518bff846d0e24bdee5fb750af6e5;hb=HEAD;hp=244bf2af655397817299701c07a179c83cd7022a;hpb=10dd5c05fee5be6ff4d72e41ab0d7b51809fdb5a;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/50fork.t b/t/50fork.t
index 244bf2a..229a4f2 100644
--- a/t/50fork.t
+++ b/t/50fork.t
@@ -6,6 +6,7 @@ use warnings;
 use Test::More;
 use Test::Exception;
 use Time::HiRes qw(time sleep);
+use List::Util 'max';
 
 use DBICTest;
 
@@ -107,7 +108,7 @@ while(@pids < $num_children) {
 
     $pid = $$;
 
-    sleep ( $t - time );
+    sleep( max( 0.1, $t - time ) );
     note ("Child process $pid starting work at " . time() );
 
     my $work = sub {