extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2024-12-19 04:41:07 +01:00
Code Issues Packages Projects Releases Wiki Activity

Allow Shorewall::Config::in_hex() to accept an argument already expressed in hex.

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2012-05-09 13:51:49 -07:00
parent 605ef6ef86
commit 820c965b72
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Shorewall/Perl/Shorewall/Config.pm
View File

@ -1030,7 +1030,9 @@ sub normalize_hex( $ ) {
# Return the argument expressed in Hex # Return the argument expressed in Hex
# #
sub in_hex( $ ) { sub in_hex( $ ) {
sprintf '0x%x', $_[0]; my $value = $_[0];
$value =~ /^0x/ ? $value : sprintf '0x%x', $_[0];
} }
sub in_hex2( $ ) { sub in_hex2( $ ) {