Change 15982: [PATCH] RE: failed with undefined USE_PERLIO for Win32

[Jarkko Hietaniemi]

Change 15982 by jhi@alpha on 2002/04/17 21:04:02

        Subject: [PATCH] RE: failed with undefined USE_PERLIO for Win32
        From: "Konovalov, Vadim" <[EMAIL PROTECTED]>
        Date: Wed, 17 Apr 2002 20:08:03 +0400
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

.... //depot/perl/win32/win32.c#194 edit

Differences ...

==== //depot/perl/win32/win32.c#194 (text) ====
Index: perl/win32/win32.c
--- perl/win32/win32.c.~1~      Wed Apr 17 15:15:05 2002
+++ perl/win32/win32.c  Wed Apr 17 15:15:05 2002
@@ -2541,6 +2541,9 @@
            if (fh != INVALID_HANDLE_VALUE) {
                int fd = win32_open_osfhandle((long)fh, 0);
                if (fd >= 0) {
+#if defined(__BORLANDC__)
+                   setmode(fd,O_BINARY);
+#endif
                    DEBUG_p(PerlIO_printf(Perl_debug_log,
                                          "Created tmpfile=%s\n",filename));
                    return fdopen(fd, "w+b");
End of Patch.