From a0c3717faf81e3b6bd62d9f4e8d4568f46067ed7 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Fri, 6 Jul 2007 17:43:21 +0100 Subject: [PATCH] tart up version no reporting in sh/node --- Changes | 1 + cmd/show/node.pl | 1 + perl/Version.pm | 2 +- 3 files changed, 3 insertions(+), 1 deletion(-) diff --git a/Changes b/Changes index 138b8740..86432dd5 100644 --- a/Changes +++ b/Changes @@ -4,6 +4,7 @@ records, that can be an hour coming, are not thoughtlessly ignored, thus causing nodes to time out. 2. Make sure that the 'over midnight' distance calculation actually does what is required! +3. Tart up version number reporting in sh/node. 05Jul07======================================================================= 1. Try to make sure that the node config broadcasts are actually sent... 03Jul07======================================================================= diff --git a/cmd/show/node.pl b/cmd/show/node.pl index 063e2e42..e5e0eba5 100644 --- a/cmd/show/node.pl +++ b/cmd/show/node.pl @@ -69,6 +69,7 @@ foreach $call (@call) { my ($major, $minor, $subs) = unpack("AAA*", $ver) if $ver; if ($uref->is_spider) { + $ver -= 53 if $ver > 54; $build = "build: " . $uref->build if $uref->build; push @out, $self->msg('snode2', $pcall, $sort, "$ver $build"); } else { diff --git a/perl/Version.pm b/perl/Version.pm index d6dc5475..3f3d7440 100644 --- a/perl/Version.pm +++ b/perl/Version.pm @@ -11,6 +11,6 @@ use vars qw($version $subversion $build); $version = '1.54'; $subversion = '0'; -$build = '103'; +$build = '104'; 1; -- 2.43.0