diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-28 16:28:04 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-28 16:28:04 +0000 |
| commit | 10cbe18a3cc229a9943f5b3605f960704d3c2b93 (patch) | |
| tree | fa69e6fab155c6a45a8885aa239b6f7202f0b469 /perlio.c | |
| parent | 3af308c73aa7e9426250922a5779b8f3f7ae2095 (diff) | |
| download | perl-10cbe18a3cc229a9943f5b3605f960704d3c2b93.tar.gz | |
setmode() is a DOSish-only thing.
p4raw-id: //depot/perl@7901
Diffstat (limited to 'perlio.c')
| -rw-r--r-- | perlio.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -1675,11 +1675,13 @@ PerlIOBuf_fdopen(PerlIO_funcs *self, int fd, const char *mode) init = 1; mode++; } - if (O_BINARY != O_TEXT) +#if O_BINARY != O_TEXT { int code = PerlLIO_setmode(fd, O_BINARY); + /* do something about failing setmode()? --jhi */ PerlIO_debug("PerlIOBuf_fdopen %s fd=%d m=%s c=%d\n",tab->name,fd,mode,code); } +#endif f = (*tab->Fdopen)(tab,fd,mode); if (f) { |