projects
/
p5sagit/p5-mst-13.2.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
(parent:
1ac24cf
)
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
patch
|
blob
|
blame
|
history
diff --git
a/ext/threads/t/stress_re.t
b/ext/threads/t/stress_re.t
index
cfee92f
..
e5daf90
100644
(file)
--- 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;