fix for ext/threads/t/problems.t failures

[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 fb87c6c..3cd1e8e 100644 (file)
--- a/ext/threads/t/stress_string.t
+++ b/ext/threads/t/stress_string.t
@@ -1,6 +1,6 @@
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    push @INC, '../lib';
     require Config; import Config;
     unless ($Config{'useithreads'}) {
        print "1..0 # Skip: no useithreads\n";
@@ -35,14 +35,14 @@ ok(2,1,"");
 
 sub test9 {
   my $i = shift;
-  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;