Add more information (cwd, $Bin) to the {farm} key
authorHeiko Schlittermann (HS12-RIPE) <hs@schlittermann.de>
Thu, 3 Nov 2016 09:36:36 +0000 (10:36 +0100)
committerHeiko Schlittermann (HS12-RIPE) <hs@schlittermann.de>
Fri, 4 Nov 2016 07:10:35 +0000 (08:10 +0100)
run_build

index 952e4a91207cd88d41e03ea31716e5ab05367b00..2bd6c52141c8f179ab018b24c41a3e569191d1b7 100755 (executable)
--- a/run_build
+++ b/run_build
@@ -43,6 +43,7 @@ use File::Copy;
 use File::Basename;
 use File::Temp;
 use File::Spec;
 use File::Basename;
 use File::Temp;
 use File::Spec;
+use FindBin qw'$Bin';
 use IO::Handle;
 use POSIX qw(:signal_h strftime);
 use Data::Dumper;
 use IO::Handle;
 use POSIX qw(:signal_h strftime);
 use Data::Dumper;
@@ -1431,6 +1432,8 @@ sub get_script_config_dump
 
     if ($conf->{scm} eq 'git') {
         chomp($conf->{farm}{revision} = `git describe --tags --always --dirty=+`);
 
     if ($conf->{scm} eq 'git') {
         chomp($conf->{farm}{revision} = `git describe --tags --always --dirty=+`);
+       $conf->{farm}{cwd} = getcwd();
+       $conf->{farm}{bindir} = $Bin;
     }
 
     $Data::Dumper::Sortkeys = 1;
     }
 
     $Data::Dumper::Sortkeys = 1;