From 82bccf16b59a7c950b86a1c251a6cefa4b7758d5 Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Mon, 13 Sep 2010 17:55:20 -0700
Subject: [PATCH] Avoid internal error when there are no 'to' entries

---
 Shorewall/Perl/Shorewall/Rules.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Shorewall/Perl/Shorewall/Rules.pm b/Shorewall/Perl/Shorewall/Rules.pm
index 91ab4e4cc..33f66f842 100644
--- a/Shorewall/Perl/Shorewall/Rules.pm
+++ b/Shorewall/Perl/Shorewall/Rules.pm
@@ -214,7 +214,7 @@ sub add_rule_pair( $$$$ ) {
 sub setup_blacklist() {
 
     my $hosts  = find_hosts_by_option1 'blacklist', BL_IN;
-    my $hosts1 = find_hosts_by_option1 'blacklist', BL_OUT;
+    my $hosts1 = find_hosts_by_option1 'blacklist', BL_IN | BL_OUT;
     my $chainref;
     my $chainref1;
     my ( $level, $disposition ) = @config{'BLACKLIST_LOGLEVEL', 'BLACKLIST_DISPOSITION' };