extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2024-11-26 09:33:14 +01:00
Code Issues Packages Projects Releases Wiki Activity

Better solution to multi-line exported symbols issue

Browse Source
This commit is contained in:
Tom Eastep 2010-12-01 09:14:09 -08:00
parent 5761bfd7d1
commit cdb75bfd96
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Shorewall/Perl/Shorewall/Config.pm
View File

@ -2905,12 +2905,14 @@ sub get_params() {
fatal_error "Processing of $fn failed" if $?;
my $variable;
for ( @params ) {
if ( /^(.*?)=(.*)$/ ) {
$params{$1} = $2 unless $1 eq '_';
} else {
warning_message "Unrecognized output from 'env' ($_) ignored";
}
if ( /^export (.*?)='(.*)'$/ ) {
$params{$variable = $1} = $2 unless $1 eq '_';
} elsif ( /^export (.*?)='/ ) {
warning_message "Exported symbol '$1' ignored";
}
}
}
}

2
Shorewall/Perl/getparams
View File

@ -32,4 +32,4 @@ set -a
set +a
env
export -p