From d0d643e52b8c7ab9f481c78edb8ab953a5da3b29 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Fri, 6 Jul 2007 17:47:39 +0100 Subject: [PATCH] handle old style spider version strings --- cmd/show/node.pl | 1 + perl/Version.pm | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) 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; -- 2.43.0