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

Add some comments

Browse Source
This commit is contained in:
Tom Eastep 2011-01-13 19:59:17 -08:00
parent 4a69ad35ee
commit 12eaf81dcc
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3034,7 +3034,7 @@ sub get_params() {
} }
# #
# Add an entry to %params # Add an entry to %params and to %compiler_params
# #
sub add_param( $$ ) { sub add_param( $$ ) {
my ( $param, $value ) = @_; my ( $param, $value ) = @_;
@ -3050,7 +3050,10 @@ sub export_params() {
my $count = 0; my $count = 0;
while ( my ( $param, $value ) = each %params ) { while ( my ( $param, $value ) = each %params ) {
next if $compiler_params{$param}; #
# Don't export params added by the compiler
#
next if exists $compiler_params{$param};
# #
# Don't export pairs from %ENV # Don't export pairs from %ENV
# #