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 | d418d66643407848ec92935509ac00391c3c55c4 (patch) | |
| tree | b0703c1fee2f7df7d7d1f55d5c4ac52907b6014a /win32 | |
| parent | dbcc251368b31e7e571f232a67afc248896bfcaa (diff) | |
| download | perl-d418d66643407848ec92935509ac00391c3c55c4.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')
| -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"); |