Thinko.
Jarkko Hietaniemi [Wed, 9 Jan 2002 14:27:23 +0000 (14:27 +0000)]
p4raw-id: //depot/perl@14150

ext/threads/t/stress_re.t

index cfee92f..e5daf90 100644 (file)
@@ -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;