slightly more elegant version with error message

diff --git a/Changes b/Changes
index 99ffb8b9e6417e59e530b0d4af9d1614503036b4..02a1b91e24c7dd7e8f275f5c1fa3f0fe695f306e 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 04Nov99=======================================================================
 1. Removed ~ from the end of the PC18.
 2. Removed a hangover from duff character checking in cluster.pl
+3. Stop PC frames that are to be routed, being routed back to themselves.
 03Nov99=======================================================================
 1. Simplified command caching so it uses anonymous subroutines, you should
 also get error messages back on the console now when developing.

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index b2978b5c330110f3eb4d9d757867ee602d277749..b99a352f3f1188d87d8997d6fefb96a7b83c0e23 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1006,7 +1006,10 @@ sub route
        my ($self, $call, $line) = @_;
        my $cl = DXCluster->get_exact($call);
        if ($cl) {       # don't route it back down itself
-               return if ref $self && $call eq $self->{call};
+               if (ref $self && $call eq $self->{call}) {
+                       dbg('chan', "Trying to route back to source, dropped");
+                       return;
+               }
                my $hops;
                my $dxchan = $cl->{dxchan};
                if ($dxchan) {