diff options
| -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 |