use Scalar::Util 'weaken';
use Time::HiRes qw(time sleep);
+use List::Util 'max';
use DBICTest;
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;