diff options
| author | Vadim Konovalov <vkonovalov@lucent.com> | 2002-04-18 00:08:03 +0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-17 21:04:02 +0000 |
| commit | a051bdb4a5dd256e73719c29e4e82ba666ed7f4d (patch) | |
| tree | b0703c1fee2f7df7d7d1f55d5c4ac52907b6014a /win32/win32.c | |
| parent | abb5764d7f2ed248968de325e6b292c8d425db71 (diff) | |
| download | perl-a051bdb4a5dd256e73719c29e4e82ba666ed7f4d.tar.gz | |
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
Diffstat (limited to 'win32/win32.c')
| -rw-r--r-- | win32/win32.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/win32/win32.c b/win32/win32.c index fd44c5f10a..a77ec885fb 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"); |