From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 9 Jan 2002 14:27:23 +0000 (+0000)
Subject: Thinko.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0f85ce8ab08dc0269854ceb1205c8a2f1dda4fe6;p=p5sagit%2Fp5-mst-13.2.git

Thinko.

p4raw-id: //depot/perl@14150
---

diff --git a/ext/threads/t/stress_re.t b/ext/threads/t/stress_re.t
index cfee92f..e5daf90 100644
--- a/ext/threads/t/stress_re.t
+++ b/ext/threads/t/stress_re.t
@@ -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;