From db1ab4fb2566360a224aa47e8b487150823c10a0 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Sun, 10 Feb 2008 18:55:34 +0000 Subject: [PATCH] Try to recognise CC-Cluster nodes --- 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 66379435..1c6ee49e 100644 --- a/cmd/show/node.pl +++ b/cmd/show/node.pl @@ -65,6 +65,7 @@ foreach $call (sort @call) { } else { $ver = $clref->version if $clref && $clref->version; $ver = $uref->version if !$ver && $uref->version; + $sort = "CCClus" if $ver >= 1000 && $ver < 4000 && $sort eq "Spider"; } if ($uref->is_spider || ($clref && $clref->do_pc9x)) { diff --git a/perl/Version.pm b/perl/Version.pm index bcd05b71..e832e37d 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 = '204'; +$build = '205'; 1; -- 2.43.0