X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=6ff479c1b61d9afee3b732b6687ce56bc29cb7be;hb=9b250c2488bfab7fa9fdc6c90d2dd5d285f5aa34;hp=2ff2c8e59ae3dc44fd05892bccdcee24972ed90f;hpb=4a9c1e3fabd9931b914307ee4f79e7259b8cdfd6;p=spider.git

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