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