Set safer umask for mkstemp().

Coverity #169258.

1 files changed, 5 insertions, 1 deletions

diff --git a/doio.c b/doio.c
index 7dcbbb5cfb..d985b79b4b 100644
--- a/doio.c
+++ b/doio.c
@@ -850,7 +850,11 @@ S_openindirtemp(pTHX_ GV *gv, SV *orig_name, SV *temp_out_name) {
     else
         sv_setpvs(temp_out_name, "XXXXXXXX");
 
-    fd = Perl_my_mkstemp(SvPVX(temp_out_name));
+    {
+      int old_umask = umask(0177);
+      fd = Perl_my_mkstemp(SvPVX(temp_out_name));
+      umask(old_umask);
+    }
 
     if (fd < 0)
         return FALSE;