More do_test() tweaks

git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@7988 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb

Shorewall-perl/Shorewall/Config.pm

@@ -511,6 +511,9 @@ sub numeric_value ( $ ) {
     $mark =~ /^0/ ? oct $mark : $mark;
 }
 
+#
+# Return the argument expressed in Hex
+#
 sub in_hex( $ ) {
     sprintf '0x%x', $_[0];
 }