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

I've got to stop messing with this...

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

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

@ -877,12 +877,8 @@ 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 opening '{'
(.*)$)x # Rest of Line
) {
# $ 1 $2 $3 - $4
while ( $currentline =~ m( ^(.*?) \$({)? ([a-zA-Z]\w*) (?(2)}) (.*)$)x ) {
my $val = $ENV{$3};
$val = '' unless defined $val;
$currentline = join( '', $1 , $val , $4 );