Update Changes.

[p5sagit/p5-mst-13.2.git] / ext / threads / t / stress_string.t

diff --git a/ext/threads/t/stress_string.t b/ext/threads/t/stress_string.t
index 369858e..23449d2 100644 (file)
--- a/ext/threads/t/stress_string.t
+++ b/ext/threads/t/stress_string.t
@@ -35,14 +35,14 @@ ok(2,1,"");
 
 sub test9 {
   my $i = shift;
-  ok($i,1,"Multiple thread test");
-  for(1..20000) { $i++};
+  for(1..500000) { $i++};
 }
 my @threads;
 for(3..33) {
+  ok($_,1,"Multiple thread test");
   push @threads ,threads->create('test9',$_);
 }
-sleep 1;
+
 my $i = 34;
 for(@threads) {
   $_->join;