package Object::Remote::FatNode;
-#TODO If a file does not end in a new line by itself
-#then fat node fails
-
use strictures 1;
use Config;
use B qw(perlstring);
my $env_pass = '';
if (defined($ENV{OBJECT_REMOTE_LOG_LEVEL})) {
- my $level = $ENV{OBJECT_REMOTE_LOG_LEVEL};
- return unless $level =~ /^\w+$/;
- $env_pass = '$ENV{OBJECT_REMOTE_LOG_LEVEL} = "' . $level . "\";\n";
+ my $level = $ENV{OBJECT_REMOTE_LOG_LEVEL};
+ return unless $level =~ /^\w+$/;
+ $env_pass = '$ENV{OBJECT_REMOTE_LOG_LEVEL} = "' . $level . "\";\n";
}
my $start = stripspace <<'END_START';
use strictures 1;
use Object::Remote::Node;
- Object::Remote::Node->run;
+ Object::Remote::Node->run(watchdog_timeout => $WATCHDOG_TIMEOUT);
END_END
my %files = map +($mods{$_} => scalar do { local (@ARGV, $/) = ($_); <> }),