prevent PC61 going to non-spider clusters

[spider.git] / perl / DXProt.pm

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});
        }
 }