Change 16203 by jhi@alpha on 2002/04/26 21:47:06
Subject: [PATCH] Re: [ID 20020425.012] segfault when printing to close
indirect filehandle
From: Nicholas Clark <[EMAIL PROTECTED]>
Date: Fri, 26 Apr 2002 23:27:23 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/t/lib/warnings/pp_hot#3 edit
Differences ...
==== //depot/perl/t/lib/warnings/pp_hot#3 (text) ====
Index: perl/t/lib/warnings/pp_hot
--- perl/t/lib/warnings/pp_hot.~1~ Fri Apr 26 16:00:05 2002
+++ perl/t/lib/warnings/pp_hot Fri Apr 26 16:00:05 2002
@@ -105,6 +105,16 @@
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 <[EMAIL PROTECTED]>
+# 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 ;
End of Patch.
