In perl.git, the branch tonyc/134221-open-temp-modes has been updated

<https://perl5.git.perl.org/perl.git/commitdiff/4a99ea8eb2f2820a5730b2c1f2c55166c4a6426d?hp=6a0e219b617bcb21c24f1f2e22394cbb62125a03>

- Log -----------------------------------------------------------------
commit 4a99ea8eb2f2820a5730b2c1f2c55166c4a6426d
Author: Tony Cook <[email protected]>
Date:   Wed Jul 3 20:23:49 2019 +1000

    strip O_TRUNC too

-----------------------------------------------------------------------

Summary of changes:
 perlio.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perlio.c b/perlio.c
index 55cb07d1d7..81ebc156ad 100644
--- a/perlio.c
+++ b/perlio.c
@@ -5049,7 +5049,7 @@ PerlIO_tmpfile(void)
 }
 
 #define MKOSTEMP_MODES ( O_RDWR | O_CREAT | O_EXCL )
-#define MKOSTEMP_MODE_MASK ( O_ACCMODE | O_CREAT | O_EXCL )
+#define MKOSTEMP_MODE_MASK ( O_ACCMODE | O_CREAT | O_EXCL | O_TRUNC )
 
 PerlIO *
 PerlIO_tmpfile_flags(int imode)

-- 
Perl5 Master Repository

Reply via email to