Put the current perl version into the Script_Config hash

[buildfarm-client.git] / run_build

diff --git a/run_build b/run_build
index ef80039c6b131b0d11f954406dc5230c8a84e6b0..f7ce80d1cecb8ebff336f3cab108b7aa289c96a8 100755 (executable)
--- a/run_build
+++ b/run_build
@@ -36,6 +36,7 @@ our $VERSION = 'REL_0.1';
 
 use strict;
 use warnings;
+use 5.010;
 use Config;
 use Fcntl qw(:flock :seek);
 use File::Path;
@@ -71,6 +72,7 @@ BEGIN
             : 'xxxxxx'
         );
     }
+    push @INC, getcwd();
 }
 
 use EximBuild::SCM;
@@ -83,14 +85,13 @@ if ($0 =~ /(.*)\.pl$/) {
     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.
@@ -1061,6 +1062,10 @@ sub make_test
       if ($verbose > 1);
 
     send_result('Test',$status,\@makeout) if $status;
+
+    @makeout = `cat $exim/test/run-summary.log`;
+    send_result('Test-results',$status,\@makeout) if $status;
+
     $steps_completed .= " Test";
 }
 
@@ -1455,6 +1460,7 @@ sub get_script_config_dump
         chomp($conf->{farm}{revision} = `cd $RealBin && git describe --tags --always --dirty=+`);
        $conf->{farm}{cwd} = getcwd();
        $conf->{farm}{bindir} = $RealBin;
+       $conf->{farm}{perl} = $^V;
     }
 
     $Data::Dumper::Sortkeys = 1;