Re: [ID 20020425.012] segfault when printing to close indirect filehandle

Message-ID: <20020426222722.GH312@Bagpuss.unfortu.net>

p4raw-id: //depot/perl@16203

diff --git a/t/lib/warnings/pp_hot b/t/lib/warnings/pp_hot
index 11826b9..7df18af 100644 (file)
--- 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 ;