$hops--;
return if $hops < 0;
$line =~ s/\^H(\d+)(\^?\~?)?$/sprintf('^H%d%s', $hops, $trail)/e;
+ $field[-1] = "H$hops";
}
# send it out for processing
$line = &$generate(@_);
}
- $line =~ /\^H(\d+)\^$/;
+ $line =~ /\^H(\d+)\^\~?$/;
unless ($1 > 0 && $self->{isolate}) {
foreach $dxchan (@dxchan) {
next if $dxchan == $self;