From 069852202dd430632012090cb749a0b1564655f4 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Sun, 12 Dec 2021 21:22:00 +0000 Subject: [PATCH] change version strings to include perl version --- Changes | 1 + cmd/show/version.pl | 2 +- perl/cluster.pl | 4 ++-- 3 files changed, 4 insertions(+), 3 deletions(-) diff --git a/Changes b/Changes index c2d65cd8..0f9fff5f 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,6 @@ 12Dec21======================================================================= 1. fix git describe et al AGAIN to cope with (very) old (2009) git versions. +2. Change version strings to include perl version in use. 11Dec21======================================================================= 1. Removed dependency on perl Git package. 2. Fixed errors caused by change 1 (use git -C $root to force .git location). diff --git a/cmd/show/version.pl b/cmd/show/version.pl index 0b0f0cfb..5707504a 100644 --- a/cmd/show/version.pl +++ b/cmd/show/version.pl @@ -23,7 +23,7 @@ if ($self->priv > 5 && @in) { } else { my ($year) = (gmtime($main::systime))[5]; $year += 1900; - push @out, "DX Spider Cluster version $main::version (build $main::build git: $main::gitbranch/$main::gitversion) on \u$^O"; + push @out, "DXSpider v$main::version (build $main::build git: $main::gitbranch/$main::gitversion) using perl $^V on \u$^O"; push @out, "Copyright (c) 1998-$year Dirk Koopman G1TLH"; } diff --git a/perl/cluster.pl b/perl/cluster.pl index b544d7de..c2cb8e08 100755 --- a/perl/cluster.pl +++ b/perl/cluster.pl @@ -319,7 +319,7 @@ sub cease $l->close_server; } - LogDbg('cluster', "DXSpider V$version build $build (git: $gitbranch/$gitversion) on $^O ended"); + LogDbg('cluster', "DXSpider v$version build $build (git: $gitbranch/$gitversion) using perl $^V on $^O ended"); dbgclose(); Logclose(); @@ -439,7 +439,7 @@ DXXml::init(); # banner my ($year) = (gmtime)[5]; $year += 1900; -LogDbg('cluster', "DXSpider V$version build $build (git: $gitbranch/$gitversion) on $^O started"); +LogDbg('cluster', "DXSpider v$version build $build (git: $gitbranch/$gitversion) using perl $^V on $^O started"); dbg("Copyright (c) 1998-$year Dirk Koopman G1TLH"); # load Prefixes -- 2.43.0