From: Michael G. Schwern <schwern@pobox.com>
Date: Tue, 27 Nov 2001 15:31:12 +0000 (-0500)
Subject: Re: [ID 20011127.155] \ -f "file" dumps core
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=80071be79f901a07ddf7256d222583c79b0346d6;p=p5sagit%2Fp5-mst-13.2.git

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