From: Vadim Konovalov <vkonovalov@lucent.com>
Date: Wed, 17 Apr 2002 20:08:03 +0000 (+0400)
Subject: RE: failed with undefined USE_PERLIO for Win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a051bdb4a5dd256e73719c29e4e82ba666ed7f4d;p=p5sagit%2Fp5-mst-13.2.git

RE: failed with undefined USE_PERLIO for Win32
From: "Konovalov, Vadim" <vkonovalov@spb.lucent.com>
Message-ID: <845FCFF2D4C0FC468B485E8777C7A00C028116@cio-test001.spb.lucent.com>

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

diff --git a/win32/win32.c b/win32/win32.c
index fd44c5f..a77ec88 100644
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -2541,6 +2541,9 @@ win32_tmpfile(void)
 	    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");