diff options
| author | Nicholas Clark <nick@ccl4.org> | 2002-04-27 00:27:23 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-26 21:47:06 +0000 |
| commit | f55e507de7c660df4146d83969f0e0bed96e11d5 (patch) | |
| tree | f785f9a19a7338bd59ad1bab04f3be6a329ec5ce /t | |
| parent | 356234a565d5cebc44bfd50e8ab43233dcb90d95 (diff) | |
| download | perl-f55e507de7c660df4146d83969f0e0bed96e11d5.tar.gz | |
Re: [ID 20020425.012] segfault when printing to close indirect filehandle
Message-ID: <20020426222722.GH312@Bagpuss.unfortu.net>
p4raw-id: //depot/perl@16203
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/warnings/pp_hot | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/t/lib/warnings/pp_hot b/t/lib/warnings/pp_hot index 11826b9ca2..7df18afb2c 100644 --- a/t/lib/warnings/pp_hot +++ b/t/lib/warnings/pp_hot @@ -105,6 +105,16 @@ print() on closed filehandle STDIN at - line 4. print() on closed filehandle STDIN at - line 6. (Are you trying to call print() on dirhandle STDIN?) ######## +# pp_hot.c [pp_print] +# [ID 20020425.012] from Dave Steiner <steiner@bakerst.rutgers.edu> +# This goes segv on 5.7.3 +use warnings 'closed' ; +my $fh = *STDOUT{IO}; +close STDOUT or die "Can't close STDOUT"; +print $fh "Shouldn't print anything, but shouldn't SEGV either\n"; +EXPECT +print() on closed filehandle at - line 7. +######## # pp_hot.c [pp_rv2av] use warnings 'uninitialized' ; my $a = undef ; |