my @before_inc = grep { filter_not_core() } @file_names;
my @after_inc;
+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 $start = stripspace <<'END_START';
# This chunk of stuff was generated by Object::Remote::FatNode. To find
# the original file's code, look for the end of this BEGIN block or the
map(generate_fatpack_hash('fatpacked_extra', $_), sort map $mods{$_}, @after_inc),
);
-our $DATA = join "\n", $start, @segments, $end;
+our $DATA = join "\n", $start, $env_pass, @segments, $end;
1;