(Retracted by #12777)

[p5sagit/p5-mst-13.2.git] / t / run / kill_perl.t

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