change version strings to include perl version

This commit is contained in:
Dirk Koopman 2021-12-12 21:22:00 +00:00
parent c42b114fbe
commit 069852202d
3 changed files with 4 additions and 3 deletions

View File

@ -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).

View File

@ -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";
}

View File

@ -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