From afaf0d9de8fbe67f555211f26cf63758f6bedaaa Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Sun, 13 Nov 2011 06:19:40 -0800 Subject: [PATCH] Trivial optimiation in validate_level() Signed-off-by: Tom Eastep --- 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;