stdio does NOT set errno==EBADF on invalidated fileno

p4raw-id: //depot/perlio@18540

1 files changed, 4 insertions, 2 deletions

diff --git a/perlio.c b/perlio.c
index 996b893e22..ff68dfbb11 100644
--- a/perlio.c
+++ b/perlio.c
@@ -2814,8 +2814,10 @@ PerlIOStdio_close(pTHX_ PerlIO *f)
 	    }
 	} 
         result = PerlSIO_fclose(stdio);
-	/* We treat EBADF from stdio as success if we invalidated */
-	if (invalidate && result != 0 && errno == EBADF) {
+	/* We treat error from stdio as success if we invalidated 
+	   errno may NOT be expected EBADF 
+	 */
+	if (invalidate && result != 0) {
 	    errno = saveerr;
 	    result = 0;
 	}