summaryrefslogtreecommitdiff
path: root/doio.c
diff options
context:
space:
mode:
authorNick Ing-Simmons <nik@tiuk.ti.com>2000-11-23 23:04:05 +0000
committerNick Ing-Simmons <nik@tiuk.ti.com>2000-11-23 23:04:05 +0000
commit63dbdb066b93ac25a070d3a7942d248c23ec6088 (patch)
tree61be3e4baada73645eafd1010e5e9dd863276630 /doio.c
parent60382766f71ec2a2d8e34a951c5c77b494bd86bb (diff)
downloadperl-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.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/doio.c b/doio.c
index 914f91c381..bf4d878230 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) {
+ else if (O_BINARY != O_TEXT && IoTYPE(io) != IoTYPE_STD) {
type = ":crlf";
}
}