From 0e9c70406965121193d8fbad0e859d574a23f9b3 Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Sat, 18 Sep 2010 08:42:21 -0700
Subject: [PATCH] Don't scan the filter table for jumps to 'blacklst' if the
 'blacklst' chain does not exist

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

diff --git a/Shorewall/Perl/Shorewall/Chains.pm b/Shorewall/Perl/Shorewall/Chains.pm
index cca4474d5..c9bd94b64 100644
--- a/Shorewall/Perl/Shorewall/Chains.pm
+++ b/Shorewall/Perl/Shorewall/Chains.pm
@@ -3684,9 +3684,12 @@ sub expand_rule( $$$$$$$$$$;$ )
 # the associated interface chain
 #
 sub promote_blacklist_rules() {
-    my $promoted = 1;
     my $chainbref = $filter_table->{blacklst};
 
+    return 1 unless $chainbref;
+
+    my $promoted = 1;
+
     while ( $promoted ) {
 	$promoted = 0;