Change 18614 by ams@lustre on 2003/02/01 12:00:29
Subject: Re: bleadperl: PerlIOStdio_invalidate_fileno breaks fclose semantics
From: Nick Ing-Simmons <[EMAIL PROTECTED]>
Date: Sat, 01 Feb 2003 13:03:52 +0000
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/perlio.c#202 edit
Differences ...
==== //depot/perl/perlio.c#202 (text) ====
Index: perl/perlio.c
--- perl/perlio.c#201~18573~ Wed Jan 22 23:26:43 2003
+++ perl/perlio.c Sat Feb 1 04:00:29 2003
@@ -2795,7 +2795,7 @@
int fd = fileno(stdio);
int socksfd = 0;
int invalidate = 0;
- IV result;
+ IV result = 0;
int saveerr = 0;
int dupfd = 0;
#ifdef SOCKS5_VERSION_NAME
@@ -2830,6 +2830,7 @@
Use Sarathy's trick from maint-5.6 to invalidate the
fileno slot of the FILE *
*/
+ result = PerlIO_flush(f);
saveerr = errno;
if (!(invalidate = PerlIOStdio_invalidate_fileno(aTHX_ stdio))) {
dupfd = PerlLIO_dup(fd);
End of Patch.
