X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=04f2aff75d7efcc0b3bab3990e7ccc3374e0c2e4;hb=a64c5be767bf32fd1a3c70e997bdf431538440d5;hp=c7cd41b77cec153ca0b6a83c5aefddafab9dee2b;hpb=2b44cbaa7a18bf641aec3439384dd1fb10b99752;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index c7cd41b7..04f2aff7 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1475,12 +1475,18 @@ sub route
 	unless ($dxchan) {
 		my $cl = DXCluster->get_exact($call);
 		$dxchan = $cl->dxchan if $cl;
+		if ($dxchan eq $self) {
+			dbg('chan', "PCPROT: Trying to route back to source, dropped");
+			return;
+		}
 	}
 	if ($dxchan) {
 		my $routeit = adjust_hops($dxchan, $line);   # adjust its hop count by node name
 		if ($routeit) {
 			$dxchan->send($routeit);
 		}
+	} else {
+		dbg('chan', "PCPROT: No route available, dropped");
 	}
 }