diff options
author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-11-23 23:04:05 +0000 |
---|---|---|
committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-11-23 23:04:05 +0000 |
commit | 63dbdb066b93ac25a070d3a7942d248c23ec6088 (patch) | |
tree | 61be3e4baada73645eafd1010e5e9dd863276630 /doio.c | |
parent | 60382766f71ec2a2d8e34a951c5c77b494bd86bb (diff) | |
download | perl-63dbdb066b93ac25a070d3a7942d248c23ec6088.tar.gz |
Win32 passes all but t/lib/peek.t with perlio and home-grown crlf.
peek fail is showing a real problem (multiple crlf layers
are getting pushed.)
p4raw-id: //depot/perlio@7843
Diffstat (limited to 'doio.c')
-rw-r--r-- | doio.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -528,7 +528,7 @@ Perl_do_open9(pTHX_ GV *gv, register char *name, I32 len, int as_raw, } } } - else if (O_BINARY != O_TEXT) { + else if (O_BINARY != O_TEXT && IoTYPE(io) != IoTYPE_STD) { type = ":crlf"; } } |