Wouldn't it be better to create it with the current UMASK?

Brad

On Oct 14, 2008, at 6:53 PM, Christian Jaeger wrote:

Create the repl history file with private permissions (as most tools are doing).

Tested on Linux, I don't know whether this works on non-POSIXy systems.

diff -r 3137e9f51f48 lib/_repl.scm
--- a/lib/_repl.scm Sun Sep 28 10:21:47 2008 -0400
+++ b/lib/_repl.scm Wed Oct 15 00:49:26 2008 +0200
@@ -2114,7 +2114,7 @@
                                (##display history port)
                                (##close-port port))))
                        open-output-file
-                       path-or-settings)))))))
+                       (##cons permissions: (##cons #o600 path-or-settings)))))))))

 

        (let ((result
               (let ((input-port (macro-repl-channel-input-port channel)))
_______________________________________________
Gambit-list mailing list
Gambit-list@iro.umontreal.ca
https://webmail.iro.umontreal.ca/mailman/listinfo/gambit-list