From 5a3589b9a60f51e0ae80ee162199d67fb9bc2320 Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Fri, 30 Oct 2015 08:18:45 -0700
Subject: [PATCH] Add some comments in get_params()

Signed-off-by: Tom Eastep <teastep@shorewall.net>
---
 Shorewall/Perl/Shorewall/Config.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/Shorewall/Perl/Shorewall/Config.pm b/Shorewall/Perl/Shorewall/Config.pm
index c2dadd370..533eea50d 100644
--- a/Shorewall/Perl/Shorewall/Config.pm
+++ b/Shorewall/Perl/Shorewall/Config.pm
@@ -5268,8 +5268,14 @@ sub get_params( $ ) {
 
 	for ( keys %params ) {
 	    if ( /[^\w]/ ) {
+		#
+		# Useless variable with special characters in its name
+		#
 		delete $params{$_};
 	    } elsif ( /^(?:SHLVL|OLDPWD)$/ ) {
+		#
+		# The shell running getparams generates those
+		#
 		delete $params{$_};
 	    } else {
 		unless ( $_ eq 'SHOREWALL_INIT_SCRIPT' ) {