Re: [ID 20011025.054] Segmentation fault when using the function read not correctly

Message-ID: <20011025182812.M4811@blackrider>

p4raw-id: //depot/perl@12659

diff --git a/t/run/kill_perl.t b/t/run/kill_perl.t
index 7e4f3a8..9f20360 100644 (file)
--- a/t/run/kill_perl.t
+++ b/t/run/kill_perl.t
@@ -804,3 +804,8 @@ Execution of - aborted due to compilation errors.
 BEGIN { print "ok\n" }
 EXPECT
 ok
+######## read($var, FILE, 1) segfaults on 5.6.1 [ID 20011025.054]
+read($bla, FILE, 1);
+EXPECT
+Can't modify constant item in read at - line 1, near "1)"
+Execution of - aborted due to compilation errors.