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

Improve readability (I think)

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6928 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-07-21 20:00:34 +00:00
parent 01a7a480e1
commit c8cf4f6685
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -875,7 +875,12 @@ sub read_a_line() {
# #
# Expand Shell Variables using %ENV # Expand Shell Variables using %ENV
# #
while ( $currentline =~ /^(.*?)\$({)?([a-zA-Z]\w*)(?(2)}|)(.*)$/ ) { 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 );