From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 6 Sep 2001 17:52:43 +0000 (+0000)
Subject: Add a test for [ID 20010906.019] perl crashes on "undef foo"
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=abfc75a9a059323370ac3ca1633e001e0f84f194;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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.