X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Fsrand.t;h=5753a5d0eb8a7d79def425872d82bc4576fa95d8;hb=dc459aad73ffc3aaf43c03d9908415c433fd93ba;hp=e809673020545413c23558ff414dddda2552a172;hpb=21f5a6076e634a7ee61d6f5aa4e44bf6708db9fb;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/srand.t b/t/op/srand.t
index e809673..5753a5d 100644
--- a/t/op/srand.t
+++ b/t/op/srand.t
@@ -53,6 +53,7 @@ ok( !eq_array(\@first_run, \@second_run),
 
 # This test checks whether Perl called srand for you.
 @first_run  = `$^X -le "print int rand 100 for 1..100"`;
+sleep(1); # in case our srand() is too time-dependent
 @second_run = `$^X -le "print int rand 100 for 1..100"`;
 
 ok( !eq_array(\@first_run, \@second_run), 'srand() called automatically');