Silence compiler warning in perlio.c

Jerry D. Hedden · Steve Hay · commit 94ccb8071447 · 2008-12-10T17:55:31.000Z
From: "Jerry D. Hedden" &lt;jdhedden@cpan.org&gt;
Message-ID: &lt;1ff86f510812090909y11947acfy317e46417b9ae91d@mail.gmail.com&gt;

p4raw-id: //depot/perl@35073
diff --git 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

Original file line number	Diff line number	Diff line change
`@@ -3199,6 +3199,8 @@ PerlIOStdio_close(pTHX_ PerlIO *f)`
`3199`	`3199`	`}`
`3200`	`3200`	`#endif`
`3201`	`3201`	`}`
	`3202`	`+ } else {`
	`3203`	`+ SAVE_ERRNO; /* This is here only to silence compiler warnings */`
`3202`	`3204`	`}`
`3203`	`3205`	`result = PerlSIO_fclose(stdio);`
`3204`	`3206`	`/* We treat error from stdio as success if we invalidated`