From a0c3717faf81e3b6bd62d9f4e8d4568f46067ed7 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
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