From cf33b1fa05b8e3489232a4e57f0ba2542b0e7a64 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Fri, 5 Nov 1999 20:43:04 +0000
Subject: [PATCH] slightly more elegant version with error message

---
 Changes        | 1 +
 perl/DXProt.pm | 5 ++++-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index 99ffb8b9..02a1b91e 100644
--- 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 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) {
-- 
2.43.0