Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Report original environment.

Helps in debugging errors - we have seen some very odd settings
for things like CFLAGS.
  • Loading branch information...
commit be73f58041f77f3e82a731e1db44dabc114fa399 1 parent 5092320
@adunstan adunstan authored
Showing with 13 additions and 0 deletions.
  1. +13 −0 run_build.pl
View
13 run_build.pl
@@ -48,6 +48,18 @@
use Cwd qw(abs_path getcwd);
use File::Find ();
+# save a copy of the original enviroment for reporting
+# save it early to reduce the risk of prior mangling
+use vars qw($orig_env);
+BEGIN
+{
+ $orig_env = {};
+ while (my ($k,$v) = each %ENV)
+ {
+ $orig_env->{$k} = $v;
+ }
+}
+
use PGBuild::SCM;
use PGBuild::Options;
@@ -1830,6 +1842,7 @@ sub get_script_config_dump
script_version => $VERSION,
invocation_args => \@invocation_args,
steps_completed => $steps_completed,
+ orig_env => $orig_env,
};
delete $conf->{secret};
return Data::Dumper->Dump([$conf],['Script_Config']);
Please sign in to comment.
Something went wrong with that request. Please try again.