Set umask only if not 022 already, print a notice about doing thata

diff --git a/run_build b/run_build
index ef80039c6b131b0d11f954406dc5230c8a84e6b0..b1c063f8a1c00ef1d03b9c346048bbcc5754be08 100755 (executable)
--- a/run_build
+++ b/run_build
@@ -36,6 +36,7 @@ our $VERSION = 'REL_0.1';
 
 use strict;
 use warnings;
 
 use strict;
 use warnings;

+use 5.010;

 use Config;
 use Fcntl qw(:flock :seek);
 use File::Path;
 use Config;
 use Fcntl qw(:flock :seek);
 use File::Path;


@@ -83,15 +84,15 @@ if ($0 =~ /(.*)\.pl$/) {
     exec $1, @ARGV;
 }
 
     exec $1, @ARGV;
 }
 

-die "$0: please use an umask of 022\n"
-    if umask > 022;
+if (umask != 022) {
+    umask 022;
+    say "$0: forced umask to 022" if -t;
+}

 
 my %module_hooks;
 my $orig_dir = getcwd();
 push @INC, $orig_dir;
 
 
 my %module_hooks;
 my $orig_dir = getcwd();
 push @INC, $orig_dir;
 

-umask 022;
-

 # make sure we exit nicely on any normal interrupt
 # so the cleanup handler gets called.
 # that lets us stop the db if it's running and
 # make sure we exit nicely on any normal interrupt
 # so the cleanup handler gets called.
 # that lets us stop the db if it's running and