update hops in @field as well as $line

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 2ff2c8e59ae3dc44fd05892bccdcee24972ed90f..6ff479c1b61d9afee3b732b6687ce56bc29cb7be 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -365,6 +365,7 @@ sub normal
                $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