From cf33b1fa05b8e3489232a4e57f0ba2542b0e7a64 Mon Sep 17 00:00:00 2001 From: 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