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).

1 files changed, 1 insertions, 0 deletions

diff --git a/script/lei b/script/lei
index 2d84487a..591013e3 100755
--- 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);