From 12eaf81dcc3e83a34d418e5ba10f35ceda1eff8a Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Thu, 13 Jan 2011 19:59:17 -0800
Subject: [PATCH] Add some comments

---
 Shorewall/Perl/Shorewall/Config.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/Shorewall/Perl/Shorewall/Config.pm b/Shorewall/Perl/Shorewall/Config.pm
index a4dbe878e..ce733a606 100644
--- a/Shorewall/Perl/Shorewall/Config.pm
+++ b/Shorewall/Perl/Shorewall/Config.pm
@@ -3034,7 +3034,7 @@ sub get_params() {
 }
 
 #
-# Add an entry to %params
+# Add an entry to %params and to %compiler_params
 #
 sub add_param( $$ ) {
     my ( $param, $value ) = @_;
@@ -3050,7 +3050,10 @@ sub export_params() {
     my $count = 0;
 
     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
 	#