holm/shorewall_code
1
0
Fork 0
forked from extern/shorewall_code
Code Pull Requests Activity

Allow upper case A-F in Hex numbers

Browse Source
This commit is contained in:
Tom Eastep 2009-05-05 16:23:37 -07:00
parent df42a82b01
commit 2125f3140f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -756,7 +756,7 @@ sub numeric_value1 ( $ ) {
sub hex_value( $ ) { sub hex_value( $ ) {
my $val = lc $_[0]; my $val = lc $_[0];
return undef unless $val =~ /^[a-f0-9]+$/; return undef unless $val =~ /^[a-fA-F0-9]+$/;
no warnings; no warnings;
oct '0x' . $val; oct '0x' . $val;
use warnings; use warnings;