More do_test() tweaks

git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@7988 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
2024-11-14 19:54:06 +01:00 · 2008-01-01 21:53:29 +00:00 · 2008-01-01 21:53:29 +00:00 · 2fa119b30a
commit 2fa119b30a
parent 7272f04a2c
1 changed files with 3 additions and 0 deletions
--- a/Shorewall-perl/Shorewall/Config.pm
+++ b/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];
 }