X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FObject%2FRemote%2FFatNode.pm;h=4bafdcfb0b25220169ff061662ffe2293256acfb;hb=7322b9505041db634e6f083563ac7901214cd2f4;hp=41ad6960aa0adf96bf9169aa3ba813586c3f9776;hpb=293fb1ee44fb32ff692278802149f42a5e391197;p=scpubgit%2FObject-Remote.git diff --git a/lib/Object/Remote/FatNode.pm b/lib/Object/Remote/FatNode.pm index 41ad696..4bafdcf 100644 --- a/lib/Object/Remote/FatNode.pm +++ b/lib/Object/Remote/FatNode.pm @@ -6,7 +6,7 @@ use B qw(perlstring); my @exclude_mods = qw(XSLoader.pm DynaLoader.pm); #used by t/watchdog_fatnode -our $INHIBIT_RUN_NODE = 0; +our $INHIBIT_RUN_NODE = 0; sub stripspace { my ($text) = @_; @@ -77,6 +77,11 @@ if (defined($ENV{OBJECT_REMOTE_LOG_SELECTIONS})) { my $selections = $ENV{OBJECT_REMOTE_LOG_SELECTIONS}; $env_pass .= '$ENV{OBJECT_REMOTE_LOG_SELECTIONS} = "' . $selections . "\";\n"; } +if (defined($ENV{OBJECT_REMOTE_LOG_FORWARDING})) { + my $forwarding = $ENV{OBJECT_REMOTE_LOG_FORWARDING}; + $env_pass .= '$ENV{OBJECT_REMOTE_LOG_FORWARDING} = "' . $forwarding . "\";\n"; +} + my $start = stripspace <<'END_START';