setmode() is a DOSish-only thing.

p4raw-id: //depot/perl@7901

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