Re: [ID 20011127.155] \ -f "file" dumps core

Message-ID: <20011127153112.G20929@blackrider>

p4raw-id: //depot/perl@13328

diff --git a/t/run/kill_perl.t b/t/run/kill_perl.t
index 9f20360..306a743 100644 (file)
--- a/t/run/kill_perl.t
+++ b/t/run/kill_perl.t
@@ -809,3 +809,9 @@ read($bla, FILE, 1);
 EXPECT
 Can't modify constant item in read at - line 1, near "1)"
 Execution of - aborted due to compilation errors.
+######## scalar ref to file test operator segfaults on 5.6.1 [ID 20011127.155]
+# This only happens if the filename is 11 characters or less.
+$foo = \-f "blah";
+print "ok" if ref $foo && !$$foo;
+EXPECT
+ok