(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 (file)
--- 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