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

of default :crlf on standard streams.

p4raw-id: //depot/perlio@7844

2 files changed, 1 insertions, 2 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";
 	}
     }
diff --git a/perlio.c b/perlio.c
index 69aba4b72c..8af1cf3b3b 100644
--- a/perlio.c
+++ b/perlio.c
@@ -2125,7 +2125,6 @@ PerlIOCrlf_get_cnt(PerlIO *f)
           {
            int code;
            dTHX;
-           Perl_warn(aTHX_ __FUNCTION__ " f=%p CR @ end of buffer",f);
            b->ptr++;               /* say we have read it as far as flush() is concerned */
            b->buf++;               /* Leave space an front of buffer */
            b->bufsiz--;            /* Buffer is thus smaller */