From 9e149ca038cc7c20297d5a9c06a2cfa05fdd3918 Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Sun, 27 Nov 2011 14:12:51 -0800
Subject: [PATCH] Correct default values during update

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

diff --git a/Shorewall/Perl/Shorewall/Config.pm b/Shorewall/Perl/Shorewall/Config.pm
index 9d0d7df7b..175e00ac1 100644
--- a/Shorewall/Perl/Shorewall/Config.pm
+++ b/Shorewall/Perl/Shorewall/Config.pm
@@ -3025,13 +3025,8 @@ sub update_config_file( $ ) {
     my $annotate = shift;
 
     sub is_set( $ ) {
-	my $option = $_[0];
-
-	if ( defined $option ) {
-	    my $value = $config{$_[0]};
-	
-	    defined( $value ) && lc( $value ) eq 'yes';
-	}
+	my $value = $_[0];
+	defined( $value ) && lc( $value ) eq 'yes';
     }
 
     my $wide = is_set $config{WIDE_TC_MARKS};