diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-11-27 10:31:12 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-28 00:34:12 +0000 |
| commit | 80071be79f901a07ddf7256d222583c79b0346d6 (patch) | |
| tree | 72c312b816268e34e1118ccd9be7bafbc9e3c255 /t | |
| parent | 2f6e8d9fbd0d0d75cb6e1c3260402d86bff0a318 (diff) | |
| download | perl-80071be79f901a07ddf7256d222583c79b0346d6.tar.gz | |
Re: [ID 20011127.155] \ -f "file" dumps core
Message-ID: <20011127153112.G20929@blackrider>
p4raw-id: //depot/perl@13328
Diffstat (limited to 't')
| -rw-r--r-- | t/run/kill_perl.t | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/t/run/kill_perl.t b/t/run/kill_perl.t index 9f20360554..306a7432a3 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 |