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

Cosmetic change

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

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

@ -877,11 +877,11 @@ sub read_a_line() {
#
# Expand Shell Variables using %ENV
#
while ( $currentline =~ m( ^(.*?) #Part preceding '$'
\$({)? #'$' and optional '{'
([a-zA-Z]\w*) #Shell Variable Name
(?(2)}) #Match closing '}'
(.*)$)x #Rest of Line
while ( $currentline =~ m( ^(.*?) # Part preceding '$'
\$({)? # '$' and optional '{'
([a-zA-Z]\w*) # Shell Variable Name
(?(2)}) # Match opening '{'
(.*)$)x # Rest of Line
) {
my $val = $ENV{$3};
$val = '' unless defined $val;