Add a test for [ID 20010906.019] perl crashes on "undef foo"

Reported in 5.61, seems to work okay in blead.

p4raw-id: //depot/perl@11921

diff --git a/t/run/kill_perl.t b/t/run/kill_perl.t
index fa3bbec..d782bb3 100644 (file)
--- a/t/run/kill_perl.t
+++ b/t/run/kill_perl.t
@@ -799,3 +799,8 @@ tie FOO, "Foo";
 EXPECT
 Can't modify constant item in tie at - line 1, near ""Foo";"
 Execution of - aborted due to compilation errors.
+######## undefing constant causes a segfault in 5.6.1 [ID 20010906.019]
+undef foo;
+EXPECT
+Can't modify constant item in undef operator at - line 1, near "foo;"
+Execution of - aborted due to compilation errors.