From: Michael G. Schwern <schwern@pobox.com>
Date: Wed, 5 Sep 2001 17:22:25 +0000 (-0400)
Subject: tying a bareword causes a segfault in 5.6.1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f8d0fd749c2c5cc68be89616233b24982e69f7de;p=p5sagit%2Fp5-mst-13.2.git

tying a bareword causes a segfault in 5.6.1
Message-ID: <20010905172225.C11386@blackrider>

p4raw-id: //depot/perl@11893
---

diff --git a/t/run/kill_perl.t b/t/run/kill_perl.t
index aa7a4a9..07df048 100644
--- a/t/run/kill_perl.t
+++ b/t/run/kill_perl.t
@@ -788,3 +788,8 @@ EXPECT
 EXPECT
 Can't modify constant item in list assignment at - line 1, near ");"
 Execution of - aborted due to compilation errors.
+######## tying a bareword causes a segfault in 5.6.1
+tie FOO, "Foo";
+EXPECT
+Can't modify constant item in tie at - line 1, near ""Foo";"
+Execution of - aborted due to compilation errors.