Win32/perlio Now just fails one io/argv.t test - lack

of default :crlf on standard streams.

p4raw-id: //depot/perlio@7844

1 files changed, 1 insertions, 1 deletions

diff --git a/doio.c b/doio.c
index bf4d878230..0da9856c30 100644
--- a/doio.c
+++ b/doio.c
@@ -528,7 +528,7 @@ Perl_do_open9(pTHX_ GV *gv, register char *name, I32 len, int as_raw,
 		}
 	    }
 	}
-	else if (O_BINARY != O_TEXT && IoTYPE(io) != IoTYPE_STD) {
+	else if (O_BINARY != O_TEXT && IoTYPE(io) != IoTYPE_STD && !saveifp) {
 	    type = ":crlf";
 	}
     }