Change 14150 by jhi@alpha on 2002/01/09 14:27:23
Thinko.
Affected files ...
.... //depot/perl/ext/threads/t/stress_re.t#2 edit
Differences ...
==== //depot/perl/ext/threads/t/stress_re.t#2 (text) ====
Index: perl/ext/threads/t/stress_re.t
--- perl/ext/threads/t/stress_re.t.~1~ Wed Jan 9 07:30:05 2002
+++ perl/ext/threads/t/stress_re.t Wed Jan 9 07:30:05 2002
@@ -34,7 +34,7 @@
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;
End of Patch.
