extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2024-12-02 04:23:11 +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

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

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

2
Shorewall/Perl/getparams
View File

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