From afaf0d9de8fbe67f555211f26cf63758f6bedaaa Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Sun, 13 Nov 2011 06:19:40 -0800
Subject: [PATCH] Trivial optimiation in validate_level()

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

diff --git a/Shorewall/Perl/Shorewall/Config.pm b/Shorewall/Perl/Shorewall/Config.pm
index 6700b84c2..3773166f3 100644
--- a/Shorewall/Perl/Shorewall/Config.pm
+++ b/Shorewall/Perl/Shorewall/Config.pm
@@ -2198,11 +2198,11 @@ sub validate_level( $ ) {
 	#
 	# Must be LOGMARK
 	#
-	return $rawlevel if $qualifier =~ /^ --/;
-
 	my $sublevel;
 
 	if ( supplied $qualifier ) {
+	    return $rawlevel if $qualifier =~ /^ --/;
+
 	    if ( $qualifier =~ /[(](.+)[)]?$/ ) {
 		$sublevel = $1;