develooper Front page | perl.perl5.porters | Postings from December 2008

Re: [PATCH] standardize save/restore of errno & vaxc$errno

Thread Previous | Thread Next
From:
Chip Salzenberg
Date:
December 5, 2008 13:32
Subject:
Re: [PATCH] standardize save/restore of errno & vaxc$errno
Message ID:
20081205213219.GH16081@tytlal.topaz.cx
On Fri, Dec 05, 2008 at 06:17:44PM -0000, Steve Hay wrote:
> Thanks, applied as 35018.

A followup: You may want to add this patch too.  It silences a
false-positive gcc warning that only shows up with optimization.

diff --git a/util.c b/util.c
index 6af4be3..c4fa794 100644
--- a/util.c
+++ b/util.c
@@ -2875,8 +2875,8 @@ Perl_my_pclose(pTHX_ PerlIO *ptr)
 	return my_syspclose(ptr);
     }
 #endif
-    if ((close_failed = (PerlIO_close(ptr) == EOF)))
-	SAVE_ERRNO;
+    close_failed = (PerlIO_close(ptr) == EOF);
+    SAVE_ERRNO;
 #ifdef UTS
     if(PerlProc_kill(pid, 0) < 0) { return(pid); }   /* HOM 12/23/91 */
 #endif

-- 
Chip Salzenberg   twitter:chipsalz
"UTOPIA PLANITIA IS IN ORBIT is the new HAN SHOT FIRST" - Crisper Than Thou

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About