Try to recognise CC-Cluster nodes

diff --git a/cmd/show/node.pl b/cmd/show/node.pl
index 66379435d076dcf8628181c0ba6a552cdb002676..1c6ee49ed5e997d536630a1d57365ad639d8f7f9 100644 (file)
--- 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 bcd05b7134ff6fe10351978d809e551c3630afa3..e832e37d5eb89dcd9ce06ffbc626f4830d549174 100644 (file)
--- 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;