threads.t: make stress test less stressy

Test 10 creates 100 threads that do 'require IO'. This can use a lot
of memory and other resources. reduce it to 10.

diff --git a/t/op/threads.t b/t/op/threads.t
index e76c956..123ad27 100644 (file)
--- a/t/op/threads.t
+++ b/t/op/threads.t
@@ -139,7 +139,7 @@ watchdog(180, "process");
 {
     local $SIG{__WARN__} = sub {};   # Ignore any thread creation failure warnings
     my @t;
-    for (1..100) {
+    for (1..10) {
         my $thr = threads->create( sub { require IO });
         last if !defined($thr);      # Probably ran out of memory
         push(@t, $thr);