From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Thu, 23 Nov 2000 23:42:45 +0000 (+0000)
Subject: Win32/perlio Now just fails one io/argv.t test - lack
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=de6cd452fde5aaf57e339f71b33b6a0852f0f96d;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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 */