diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-10-29 18:01:08 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-30 03:03:49 +0000 |
| commit | d93f03cc3cfd6a0bcc6b100c4b6d32f0aee5e5f4 (patch) | |
| tree | 66f84a8d0c1fa68b64ac4885a9e8ea514d61d17e | |
| parent | f14ed3c65f717a9c4095c171cd400c1bb4c6fc07 (diff) | |
| download | perl-d93f03cc3cfd6a0bcc6b100c4b6d32f0aee5e5f4.tar.gz | |
(Retracted by #12777)
Subject: Perlbug 19990906.001 - segfault on long escaped quote regex
Message-ID: <20011029230108.G18053@blackrider>
p4raw-id: //depot/perl@12776
| -rw-r--r-- | t/run/kill_perl.t | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/t/run/kill_perl.t b/t/run/kill_perl.t index 9f20360554..f600435ce7 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 |