From: Dirk Koopman <djk@tobit.co.uk>
Date: Fri, 6 Jul 2007 16:47:39 +0000 (+0100)
Subject: handle old style spider version strings
X-Git-Tag: 1.55~110
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=d0d643e52b8c7ab9f481c78edb8ab953a5da3b29

handle old style spider version strings
---

diff --git a/cmd/show/node.pl b/cmd/show/node.pl
index e5e0eba5..fa4a3505 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 /= 100 if $ver > 5400;
 		$ver -= 53 if $ver > 54;
 		$build = "build: " . $uref->build if $uref->build;
 		push @out, $self->msg('snode2', $pcall, $sort, "$ver $build");
diff --git a/perl/Version.pm b/perl/Version.pm
index 3f3d7440..7011a104 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 = '104';
+$build = '105';
 
 1;