From 705ffbca493ecad166762f8c7d6785249a8eab8a Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Wed, 20 Jul 2011 17:33:31 -0700
Subject: [PATCH] Fix for LOGMARK(<list>)

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

diff --git a/Shorewall/Perl/Shorewall/Config.pm b/Shorewall/Perl/Shorewall/Config.pm
index a275b2f4b..cb10f37d6 100644
--- a/Shorewall/Perl/Shorewall/Config.pm
+++ b/Shorewall/Perl/Shorewall/Config.pm
@@ -2149,7 +2149,7 @@ sub validate_level( $ ) {
 
 	    if ( $1 ) {	    
 		$sublevel = $validlevels{$sublevel} unless $sublevel =~ /^[0-7]$/;
-		level_error( $level ) unless defined $sublevel  =~ /^[0-7]$/;
+		level_error( $level ) unless defined $sublevel && $sublevel  =~ /^[0-7]$/;
 	    } else {
 		$sublevel = 6; # info
 	    }