Silence compiler warning in perlio.c

From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510812090909y11947acfy317e46417b9ae91d@mail.gmail.com>

p4raw-id: //depot/perl@35073

1 files changed, 2 insertions, 0 deletions

diff --git a/perlio.c b/perlio.c
index 95c3b24fb7..5db65b931a 100644
--- 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