|
 |
4dad76 |
From 0424723402ef153af8ee44222315d9b6a818d1ba Mon Sep 17 00:00:00 2001
|
|
|
4dad76 |
From: Tony Cook <tony@develop-help.com>
|
|
|
4dad76 |
Date: Tue, 2 Jul 2019 15:22:26 +1000
|
|
|
4dad76 |
Subject: [PATCH 2/3] (perl #134221) support append mode temp files on Win32
|
|
|
4dad76 |
too
|
|
|
4dad76 |
MIME-Version: 1.0
|
|
|
4dad76 |
Content-Type: text/plain; charset=UTF-8
|
|
|
4dad76 |
Content-Transfer-Encoding: 8bit
|
|
|
4dad76 |
|
|
|
4dad76 |
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
|
|
4dad76 |
---
|
|
|
4dad76 |
perlio.c | 2 +-
|
|
|
4dad76 |
win32/win32.c | 10 +++++++++-
|
|
|
4dad76 |
win32/win32iop.h | 1 +
|
|
|
4dad76 |
3 files changed, 11 insertions(+), 2 deletions(-)
|
|
|
4dad76 |
|
|
|
4dad76 |
diff --git a/perlio.c b/perlio.c
|
|
|
4dad76 |
index a737e79e02..81ebc156ad 100644
|
|
|
4dad76 |
--- a/perlio.c
|
|
|
4dad76 |
+++ b/perlio.c
|
|
|
4dad76 |
@@ -5059,7 +5059,7 @@ PerlIO_tmpfile_flags(int imode)
|
|
|
4dad76 |
#endif
|
|
|
4dad76 |
PerlIO *f = NULL;
|
|
|
4dad76 |
#ifdef WIN32
|
|
|
4dad76 |
- const int fd = win32_tmpfd();
|
|
|
4dad76 |
+ const int fd = win32_tmpfd_mode(imode);
|
|
|
4dad76 |
if (fd >= 0)
|
|
|
4dad76 |
f = PerlIO_fdopen(fd, "w+b");
|
|
|
4dad76 |
#elif ! defined(VMS) && ! defined(OS2)
|
|
|
4dad76 |
diff --git a/win32/win32.c b/win32/win32.c
|
|
|
4dad76 |
index 8104d864c2..91fdffe09b 100644
|
|
|
4dad76 |
--- a/win32/win32.c
|
|
|
4dad76 |
+++ b/win32/win32.c
|
|
|
4dad76 |
@@ -2907,10 +2907,18 @@ win32_rewind(FILE *pf)
|
|
|
4dad76 |
|
|
|
4dad76 |
DllExport int
|
|
|
4dad76 |
win32_tmpfd(void)
|
|
|
4dad76 |
+{
|
|
|
4dad76 |
+ return win32_tmpfd_mode(0);
|
|
|
4dad76 |
+}
|
|
|
4dad76 |
+
|
|
|
4dad76 |
+DllExport int
|
|
|
4dad76 |
+win32_tmpfd_mode(int mode)
|
|
|
4dad76 |
{
|
|
|
4dad76 |
char prefix[MAX_PATH+1];
|
|
|
4dad76 |
char filename[MAX_PATH+1];
|
|
|
4dad76 |
DWORD len = GetTempPath(MAX_PATH, prefix);
|
|
|
4dad76 |
+ mode &= ~( O_ACCMODE | O_CREAT | O_EXCL );
|
|
|
4dad76 |
+ mode |= O_RDWR;
|
|
|
4dad76 |
if (len && len < MAX_PATH) {
|
|
|
4dad76 |
if (GetTempFileName(prefix, "plx", 0, filename)) {
|
|
|
4dad76 |
HANDLE fh = CreateFile(filename,
|
|
|
4dad76 |
@@ -2922,7 +2930,7 @@ win32_tmpfd(void)
|
|
|
4dad76 |
| FILE_FLAG_DELETE_ON_CLOSE,
|
|
|
4dad76 |
NULL);
|
|
|
4dad76 |
if (fh != INVALID_HANDLE_VALUE) {
|
|
|
4dad76 |
- int fd = win32_open_osfhandle((intptr_t)fh, 0);
|
|
|
4dad76 |
+ int fd = win32_open_osfhandle((intptr_t)fh, mode);
|
|
|
4dad76 |
if (fd >= 0) {
|
|
|
4dad76 |
PERL_DEB(dTHX;)
|
|
|
4dad76 |
DEBUG_p(PerlIO_printf(Perl_debug_log,
|
|
|
4dad76 |
diff --git a/win32/win32iop.h b/win32/win32iop.h
|
|
|
4dad76 |
index 53330e5951..559e1f9cd2 100644
|
|
|
4dad76 |
--- a/win32/win32iop.h
|
|
|
4dad76 |
+++ b/win32/win32iop.h
|
|
|
4dad76 |
@@ -64,6 +64,7 @@ DllExport int win32_fgetpos(FILE *pf,fpos_t *p);
|
|
|
4dad76 |
DllExport int win32_fsetpos(FILE *pf,const fpos_t *p);
|
|
|
4dad76 |
DllExport void win32_rewind(FILE *pf);
|
|
|
4dad76 |
DllExport int win32_tmpfd(void);
|
|
|
4dad76 |
+DllExport int win32_tmpfd_mode(int mode);
|
|
|
4dad76 |
DllExport FILE* win32_tmpfile(void);
|
|
|
4dad76 |
DllExport void win32_abort(void);
|
|
|
4dad76 |
DllExport int win32_fstat(int fd,Stat_t *sbufptr);
|
|
|
4dad76 |
--
|
|
|
4dad76 |
2.20.1
|
|
|
4dad76 |
|