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