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

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

Thread Previous | Thread Next
From:
Craig A. Berry
Date:
December 5, 2008 15:29
Subject:
Re: [PATCH] standardize save/restore of errno & vaxc$errno
Message ID:
c9ab31fc0812051529u1feaa7fbm1e1f6db771ffb57e@mail.gmail.com
On Fri, Dec 5, 2008 at 3:32 PM, Chip Salzenberg <chip@pobox.com> wrote:
> 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;

Is that line supposed to be

    if (close_failed) SAVE_ERRNO;

?

Or do you now want to save errno regardless of whether the close failed?

>  #ifdef UTS
>     if(PerlProc_kill(pid, 0) < 0) { return(pid); }   /* HOM 12/23/91 */
>  #endif

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