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 (file)
--- 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.