From 8e6600cb1ab69aed0db1f69b482484e4831b7c16 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Sun, 25 Apr 1999 15:57:51 +0000
Subject: [PATCH] fixed the fact that the filter works, but the DXProt didn't
 send it onx

---
 perl/DXProt.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 6d9afb4e..b1d37a9b 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -241,6 +241,7 @@ sub normal
 				my ($filter, $hops) = Filter::it($dxchan->{spotfilter}, @spot) if $dxchan->{spotfilter};
 				if ($hops) {
 					$line =~ s/\^H\d+\^\~$/\^H$hops\^\~/;
+					$routeit = $line;
 				} else {
 					$routeit = adjust_hops($dxchan, $line);  # adjust its hop count by node name
 					next unless $routeit;
-- 
2.34.1