From: Michael G. Schwern <schwern@pobox.com>
Date: Mon, 29 Oct 2001 23:01:08 +0000 (-0500)
Subject: (Retracted by #12777)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d93f03cc3cfd6a0bcc6b100c4b6d32f0aee5e5f4;p=p5sagit%2Fp5-mst-13.2.git

(Retracted by #12777)
Subject: Perlbug 19990906.001 - segfault on long escaped quote regex
Message-ID: <20011029230108.G18053@blackrider>

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

diff --git a/t/run/kill_perl.t b/t/run/kill_perl.t
index 9f20360..f600435 100644
--- a/t/run/kill_perl.t
+++ b/t/run/kill_perl.t
@@ -809,3 +809,9 @@ read($bla, FILE, 1);
 EXPECT
 Can't modify constant item in read at - line 1, near "1)"
 Execution of - aborted due to compilation errors.
+######## [ID 19990906.001]
+$line = ('a' x 99999) . ";'"; . ('a' x 20000);
+$line =~ m";(?:\s*\'(?:[^\\']|\\.)*\'\s*)";;
+print "ok\n";
+EXPECT
+ok