From: Dominic Dunlop <domo@computer.org>
Date: Thu, 30 Mar 2006 10:31:55 +0000 (+0200)
Subject: Re: recursion now removed from the regex engine
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ea29714e578a05a971320d0bfb31ab662847862a;p=p5sagit%2Fp5-mst-13.2.git

Re: recursion now removed from the regex engine
Message-Id: <C4D69F9F-FB90-4564-8C46-E51765EB0440@mac.com>

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

diff --git a/t/op/pat.t b/t/op/pat.t
index 96a056a..df5f3e0 100755
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -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