From 4ed6b6d9556b4252b012766043c65dce1ed55f0c Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Tue, 14 Dec 2021 21:43:52 +0000 Subject: [PATCH] remove spurious 0. from build no --- perl/DXProt.pm | 2 +- perl/DXProtout.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 09ab5451..ca9b4922 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -246,7 +246,7 @@ sub init $main::me->{pingave} = 0; $main::me->{registered} = 1; $main::me->{version} = $main::version; - $main::me->{build} = "$main::subversion.$main::build"; + $main::me->{build} = $main::build; $main::me->{do_pc9x} = 1; $main::me->update_pc92_next($pc92_short_update_period); $main::me->update_pc92_keepalive; diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm index d829fc37..ec2201ce 100644 --- a/perl/DXProtout.pm +++ b/perl/DXProtout.pm @@ -130,7 +130,7 @@ sub pc17 sub pc18 { my $flags = shift; - return "PC18^DXSpider Version: $main::version Build: $main::subversion.$main::build Git: $main::gitbranch/$main::gitversion$flags^$DXProt::myprot_version^"; + return "PC18^DXSpider Version: $main::version Build: $main::build Git: $main::gitbranch/$main::gitversion$flags^$DXProt::myprot_version^"; } # -- 2.34.1