From: Dirk Koopman <djk@tobit.co.uk>
Date: Sun, 14 Oct 2007 22:34:35 +0000 (+0100)
Subject: prevent PC61 going to non-spider clusters
X-Git-Tag: 1.55~41^2~4
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=1ee451862708aa68397fc57fac56f79a9febd90d

prevent PC61 going to non-spider clusters
---

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;