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

of default :crlf on standard streams.

p4raw-id: //depot/perlio@7844

diff --git a/doio.c b/doio.c
index bf4d878..0da9856 100644 (file)
--- 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 69aba4b..8af1cf3 100644 (file)
--- 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 */