X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXProt.pm;h=c00219ecd780b4354d79fb4d61403ca017fb76ed;hb=b3099da00e84f1ed5cba3cdb263c8a6b8ec27e05;hp=98f95033d96e37fab496cf56f7809229f6823bc8;hpb=4a1e9ef57551080432ecfcfcb5d7a924540ee06f;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 98f95033..c00219ec 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1228,8 +1228,8 @@ sub broadcast_route_pc9x
 	$line =~ /\^H(\d+)\^\~?$/;
 	unless ($1 > 0 && $self->{isolate}) {
 		foreach $dxchan (@dxchan) {
-			next if $dxchan == $self;
-			next if $dxchan == $main::me;
+			next if $dxchan == $self || $main::me;
+			next if $origin eq $dxchan->{call};	# don't route some from this call back again.
 			next unless $dxchan->{do_pc92};
 			next unless $dxchan->isa('DXProt');