use strict;
use warnings;
+use 5.010;
use Config;
use Fcntl qw(:flock :seek);
use File::Path;
use File::Basename;
use File::Temp;
use File::Spec;
-use FindBin qw'$Bin';
+use FindBin qw'$RealBin';
use IO::Handle;
use POSIX qw(:signal_h strftime);
use Data::Dumper;
: '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.
}
}
writelog('test',\@makeout);
+ send_result('Test',$status,\@makeout) if $status;
+
+ @makeout = `cat $exim/test/run-summary.log`;
+ writelog('test-results',\@makeout);
+
print "======== make test logs ===========\n",@makeout
if ($verbose > 1);
-
- send_result('Test',$status,\@makeout) if $status;
$steps_completed .= " Test";
}
delete $conf->{secret};
if ($conf->{scm} eq 'git') {
- chomp($conf->{farm}{revision} = `git -C $Bin describe --tags --always --dirty=+`);
+ chomp($conf->{farm}{revision} = `cd $RealBin && git describe --tags --always --dirty=+`);
$conf->{farm}{cwd} = getcwd();
- $conf->{farm}{bindir} = $Bin;
+ $conf->{farm}{bindir} = $RealBin;
+ $conf->{farm}{perl} = $^V;
}
$Data::Dumper::Sortkeys = 1;