- my $filter = Filter::it($dxchan->{spotfilter}, @spot) if $dxchan->{spotfilter};
- my $routeit = adjust_hops($dxchan, $line); # adjust its hop count by node name
- next unless $routeit;
+ my $routeit;
+ my ($filter, $hops) = Filter::it($dxchan->{spotfilter}, @spot) if $dxchan->{spotfilter};
+ if ($hops) {
+ $line =~ s/\^H\d+\^\~$/\^H$hops\^\~/;
+ } else {
+ $routeit = adjust_hops($dxchan, $line); # adjust its hop count by node name
+ next unless $routeit;
+ }