Ensure only DOSish builds force O_BINARY=1 in the open path

Perl · Mar 19, 2013 · 93f31ee · 93f31ee
1 parent c0fcb8c
commit 93f31ee
Showing 1 changed file with 9 additions and 4 deletions.
diff --git a/perlio.c b/perlio.c
@@ -2610,10 +2610,15 @@ PerlIOUnix_oflags(const char *mode)
 	oflags &= ~O_BINARY;
 	mode++;
     }
-    /*
-     * Always open in binary mode
-     */
-    oflags |= O_BINARY;
+    else {
+#ifdef PERLIO_USING_CRLF
+	/*
+	 * If neither "t" nor "b" was specified, open the file
+	 * in O_BINARY mode.
+	 */
+	oflags |= O_BINARY;
+#endif
+    }
     if (*mode || oflags == -1) {
 	SETERRNO(EINVAL, LIB_INVARG);
 	oflags = -1;