mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-22 20:40:29 +02:00
Code Activity

use umask when making permissions on .go files

Browse source 
* module/system/base/compile.scm (call-with-output-file/atomic): Temp
  files get created 0600. After we're done writing, chmod them to
  something in line with the user's umask.
This commit is contained in:
Andy Wingo 2009-02-24 23:02:33 +01:00
parent cb4362cdae
commit a56db0f67e
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
module/system/base/compile.scm
View file

@ -78,6 +78,7 @@
(with-throw-handler #t (with-throw-handler #t
(lambda () (lambda ()
(proc tmp) (proc tmp)
(chmod tmp (logand #o0666 (lognot (umask))))
(close-port tmp) (close-port tmp)
(rename-file template filename)) (rename-file template filename))
(lambda args (lambda args