script/lei: umask(077) before execve

While my MUA also runs umask(077) unconditionally, not all
MUAs do.  Additionally, pagers may support writing its buffer
to disk, so ensure anything else we spawn has umask(077).

diff --git a/script/lei b/script/lei
index 2d84487a89dc5d27acd2771339b4525463198b30..591013e3804ab6979f429e2aa00f6fba351cf26a 100755 (executable)
--- a/script/lei
+++ b/script/lei
@@ -53,6 +53,7 @@ my $exec_cmd = sub {
                }
                my %env = map { split(/=/, $_, 2) } splice(@argv, $argc);
                @ENV{keys %env} = values %env;
+               umask 077;
                exec(@argv);
                warn "exec: @argv: $!\n";
                POSIX::_exit(1);