diff options
author | Tony Cook <tony@develop-help.com> | 2019-07-02 14:16:35 +1000 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2019-07-16 15:30:06 +1000 |
commit | ae73d7ec2329275a2dba4be24415743f884d9dfd (patch) | |
tree | 5707e77cade08fc8ea9f25855b6051c96a8de9fc /doio.c | |
parent | dc9ac3ee562166ff93b09c2b5a63cc5c51748c7f (diff) | |
download | perl-ae73d7ec2329275a2dba4be24415743f884d9dfd.tar.gz |
(perl #134221) support append mode for open .. undef
Diffstat (limited to 'doio.c')
-rw-r--r-- | doio.c | 15 |
1 files changed, 15 insertions, 0 deletions
@@ -265,6 +265,21 @@ Perl_my_mkstemp_cloexec(char *templte) #endif } +int +Perl_my_mkostemp_cloexec(char *templte, int flags) +{ + dVAR; + PERL_ARGS_ASSERT_MY_MKOSTEMP_CLOEXEC; +#if defined(O_CLOEXEC) + DO_ONEOPEN_EXPERIMENTING_CLOEXEC( + PL_strategy_mkstemp, + Perl_my_mkostemp(templte, flags | O_CLOEXEC), + Perl_my_mkostemp(templte, flags)); +#else + DO_ONEOPEN_THEN_CLOEXEC(Perl_my_mkostemp(templte, flags)); +#endif +} + #ifdef HAS_PIPE int Perl_PerlProc_pipe_cloexec(pTHX_ int *pipefd) |