Reduce amount of torture tests - too slow on some OSes

[p5sagit/Devel-PeekPoke.git] / t / 04thread-torture.t

diff --git a/t/04thread-torture.t b/t/04thread-torture.t
index fa35099..8f09b3a 100644 (file)
--- a/t/04thread-torture.t
+++ b/t/04thread-torture.t
@@ -20,6 +20,10 @@ share $::TEST_COUNT;
 
 # older perls crash if threads are spawned way too quickly, sleep for 100 msecs
 my @pool = map { sleep 0.1 and threads->create(\&run_torture) } (1..($ENV{AUTOMATED_TESTING} ? 20 : 5) );
+
+# again - necessary for older perls
+sleep 1;
+
 for (@pool) {
   if ($_->join != 42) {
     die ($_->can('error') ? $_->error : "Thread did not finish successfully" );