slightly more elegant version with error message

[spider.git] / perl / DXProt.pm

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) {