From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 28 Nov 2000 16:28:04 +0000 (+0000)
Subject: setmode() is a DOSish-only thing.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=10cbe18a3cc229a9943f5b3605f960704d3c2b93;p=p5sagit%2Fp5-mst-13.2.git

setmode() is a DOSish-only thing.

p4raw-id: //depot/perl@7901
---

diff --git a/perlio.c b/perlio.c
index 75b50ed..a4cd6f5 100644
--- a/perlio.c
+++ b/perlio.c
@@ -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)
   {