don't route pc92 back to their origin

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 98f95033d96e37fab496cf56f7809229f6823bc8..c00219ecd780b4354d79fb4d61403ca017fb76ed 100644 (file)
--- 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');