Silence compiler warning in perlio.c
authorJerry D. Hedden <jdhedden@cpan.org>
Tue, 9 Dec 2008 12:09:36 +0000 (07:09 -0500)
committerSteve Hay <SteveHay@planit.com>
Wed, 10 Dec 2008 17:55:31 +0000 (17:55 +0000)
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510812090909y11947acfy317e46417b9ae91d@mail.gmail.com>

p4raw-id: //depot/perl@35073

perlio.c

index 95c3b24..5db65b9 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -3199,6 +3199,8 @@ PerlIOStdio_close(pTHX_ PerlIO *f)
                }
 #endif
            }
+       } else {
+           SAVE_ERRNO;   /* This is here only to silence compiler warnings */
        }
         result = PerlSIO_fclose(stdio);
        /* We treat error from stdio as success if we invalidated