fixed the fact that the filter works, but the DXProt didn't send it onx

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 6d9afb4e488cd3454081c812cff384b9838dfec3..b1d37a9b8e0e741447a2343655c0fdd2acafeec5 100644 (file)
--- 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;