This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
1266ad8
)
Re: recursion now removed from the regex engine
author
Dominic Dunlop
<domo@computer.org>
Thu, 30 Mar 2006 10:31:55 +0000
(12:31 +0200)
committer
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Fri, 31 Mar 2006 21:53:22 +0000
(21:53 +0000)
Message-Id: <
C4D69F9F
-FB90-4564-8C46-
E51765EB0440
@mac.com>
p4raw-id: //depot/perl@27656
t/op/pat.t
patch
|
blob
|
blame
|
history
diff --git
a/t/op/pat.t
b/t/op/pat.t
index
96a056a
..
df5f3e0
100755
(executable)
--- a/
t/op/pat.t
+++ b/
t/op/pat.t
@@
-6,7
+6,7
@@
$| = 1;
-print "1..1
199
\n";
+print "1..1
200
\n";
BEGIN {
chdir 't' if -d 't';
@@
-3465,4
+3465,9
@@
ok(("foba ba$s" =~ qr/(foo|BaSS|bar)/i)
ok($f eq "ab", "pos retained between calls # TODO") or print "# $@\n";
}
-# last test 1199
+# Keep the following test last -- it may crash perl
+
+ok(("a" x (2**15 - 10)) =~ /^()(a|bb)*$/, "Recursive stack cracker: #24274")
+ or print "# Unexpected outcome: should pass or crash perl\n";
+
+# last test 1200