This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: recursion now removed from the regex engine
authorDominic Dunlop <domo@computer.org>
Thu, 30 Mar 2006 10:31:55 +0000 (12:31 +0200)
committerRafael 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

index 96a056a..df5f3e0 100755 (executable)
@@ -6,7 +6,7 @@
 
 $| = 1;
 
-print "1..1199\n";
+print "1..1200\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