prevent PC61 going to non-spider clusters

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index e3a9c52ffeae8a8a60f04e41bc36d7a9e13278e8..5a88a2d4d5f6bdcdbf2234aca329df7cf899588f 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -548,6 +548,7 @@ sub send_dx_spot
        foreach $dxchan (@dxchan) {
                next if $dxchan == $main::me;
                next if $dxchan == $self && $self->is_node;
+               next if $line =~ /PC61/ && !$dxchan->is_spider && !$dxchan->is_user;
                $dxchan->dx_spot($line, $self->{isolate}, @_, $self->{call});
        }
 }

diff --git a/perl/Version.pm b/perl/Version.pm
index c42af5e7e50069b4b7cbb4e3bc865a48fa3ad98b..7fa6af047d4764dba936dde22baefbd318ed6a8b 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 = '172';
+$build = '173';
 
 1;