From 9b250c2488bfab7fa9fdc6c90d2dd5d285f5aa34 Mon Sep 17 00:00:00 2001 From: minima Date: Mon, 1 Jan 2007 18:34:55 +0000 Subject: [PATCH] update hops in @field as well as $line --- perl/DXProt.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 2ff2c8e5..6ff479c1 100644 --- 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 -- 2.43.0