From 1ee451862708aa68397fc57fac56f79a9febd90d Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Sun, 14 Oct 2007 23:34:35 +0100 Subject: [PATCH] prevent PC61 going to non-spider clusters --- perl/DXProt.pm | 1 + perl/Version.pm | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/perl/DXProt.pm b/perl/DXProt.pm index e3a9c52f..5a88a2d4 100644 --- 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 c42af5e7..7fa6af04 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 = '172'; +$build = '173'; 1; -- 2.43.0