From: Dirk Koopman Date: Sun, 26 Apr 2020 10:43:43 +0000 (+0100) Subject: fix dbg warnings on things like $main::me->run_cmd X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=e62a4067ee11c99ab0949f6a10fef9a24944095a;p=spider.git fix dbg warnings on things like $main::me->run_cmd --- diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 1f631120..25d5501f 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -254,6 +254,7 @@ sub init $main::me->{version} = $main::version; $main::me->{build} = $main::build; $main::me->{do_pc9x} = 1; + $main::me->{hostname} = $main::clusteraddr; $main::me->update_pc92_next($pc92_short_update_period); $main::me->update_pc92_keepalive; }