Changing the test count is a good idea.

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

diff --git a/ext/threads/t/stress_re.t b/ext/threads/t/stress_re.t
index cfee92f..aa89b19 100644 (file)
--- a/ext/threads/t/stress_re.t
+++ b/ext/threads/t/stress_re.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";
@@ -34,7 +34,7 @@ sub ok {
 ok(2,1,"");
 
 sub test9 {
-  my $s = "abcd" x (1000 + $_);
+  my $s = "abcd" x (1000 + $_[0]);
   my $t = '';
   while ($s =~ /(.)/g) { $t .= $1 }
   print "not ok $_[0]\n" if $s ne $t;