extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-06-24 11:41:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

Tiny optimization

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6964 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-07-26 14:23:11 +00:00
parent f6f1b38194
commit 32ba2ce0b9
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Shorewall-perl/Shorewall/Config.pm
View File

@ -835,8 +835,6 @@ sub read_a_line() {
while ( <$currentfile> ) { while ( <$currentfile> ) {
$currentlinenumber++;
chomp; chomp;
# #
# Continuation # Continuation
@ -850,11 +848,13 @@ sub read_a_line() {
# Ignore ( concatenated ) Blank Lines # Ignore ( concatenated ) Blank Lines
# #
$currentline = '', next if $currentline =~ /^\s*$/; $currentline = '', next if $currentline =~ /^\s*$/;
$currentlinenumber = $.;
# #
# Expand Shell Variables using %ENV # Expand Shell Variables using %ENV
# #
# $1 $2 $3 - $4 # $1 $2 $3 - $4
while ( $currentline =~ m( ^(.*?) \$({)? ([a-zA-Z]\w*) (?(2)}) (.*)$)x ) { while ( $currentline =~ m( ^(.*?) \$({)? ([a-zA-Z]\w*) (?(2)}) (.*)$ )x ) {
my $val = $ENV{$3}; my $val = $ENV{$3};
$val = '' unless defined $val; $val = '' unless defined $val;
$currentline = join( '', $1 , $val , $4 ); $currentline = join( '', $1 , $val , $4 );