extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2024-12-15 10:51:02 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fix a couple of bugs

Browse Source
This commit is contained in:
Tom Eastep 2010-12-26 11:34:58 -08:00
parent 8f9d5a967b
commit 088480e5d9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1892,7 +1892,7 @@ sub read_a_line(;$) {
my $val;
if ( $var =~ /^\$\d+$/ ) {
if ( $var =~ /^\d+$/ ) {
fatal_error "Undefined parameter (\$$var)" unless exists $actparms{$var};
$val = $actparms{$var};
} else {
@ -2739,7 +2739,7 @@ sub ensure_config_path() {
open_file $f;
$ENV{CONFDIR} = $globals{CONFDIR};
$params{CONFDIR} = $globals{CONFDIR};
while ( read_a_line ) {
if ( $currentline =~ /^\s*([a-zA-Z]\w*)=(.*?)\s*$/ ) {