X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=b99a352f3f1188d87d8997d6fefb96a7b83c0e23;hb=bd14b9e29dbd64a441cc7b65f6b6b92717f8a01b;hp=b2978b5c330110f3eb4d9d757867ee602d277749;hpb=3ebd2e180d7315ffd9a2c0eaed558238b6c6bed3;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index b2978b5c..b99a352f 100644
--- 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) {