use strict;
use warnings;
+use 5.010;
use Config;
use Fcntl qw(:flock :seek);
use File::Path;
: 'xxxxxx'
);
}
+ push @INC, getcwd();
}
use EximBuild::SCM;
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;
-
-umask 022;
# make sure we exit nicely on any normal interrupt
# so the cleanup handler gets called.