extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-06-20 17:58:07 +02: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; my $val;
if ( $var =~ /^\$\d+$/ ) { if ( $var =~ /^\d+$/ ) {
fatal_error "Undefined parameter (\$$var)" unless exists $actparms{$var}; fatal_error "Undefined parameter (\$$var)" unless exists $actparms{$var};
$val = $actparms{$var}; $val = $actparms{$var};
} else { } else {
@ -2739,7 +2739,7 @@ sub ensure_config_path() {
open_file $f; open_file $f;
$ENV{CONFDIR} = $globals{CONFDIR}; $params{CONFDIR} = $globals{CONFDIR};
while ( read_a_line ) { while ( read_a_line ) {
if ( $currentline =~ /^\s*([a-zA-Z]\w*)=(.*?)\s*$/ ) { if ( $currentline =~ /^\s*([a-zA-Z]\w*)=(.*?)\s*$/ ) {