Add more information (cwd, $Bin) to the {farm} key

diff --git a/run_build b/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;