From e62a4067ee11c99ab0949f6a10fef9a24944095a Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Sun, 26 Apr 2020 11:43:43 +0100
Subject: [PATCH] fix dbg warnings on things like $main::me->run_cmd

---
 perl/DXProt.pm | 1 +
 1 file changed, 1 insertion(+)

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;
 }
-- 
2.34.1