From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Tue, 9 Dec 2008 12:09:36 +0000 (-0500)
Subject: Silence compiler warning in perlio.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=94ccb8071447cc02333d411ff69ed91cc131500a;p=p5sagit%2Fp5-mst-13.2.git

Silence compiler warning in perlio.c
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510812090909y11947acfy317e46417b9ae91d@mail.gmail.com>

p4raw-id: //depot/perl@35073
---

diff --git a/perlio.c b/perlio.c
index 95c3b24..5db65b9 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