From 1ee451862708aa68397fc57fac56f79a9febd90d Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
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.34.1