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