From 243e8f1dbe04146116ddffa2bcbba5cff1471166 Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Sat, 28 May 2011 08:31:36 -0700
Subject: [PATCH] Fix check for unreferenced 'sfilter' chain

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

diff --git a/Shorewall/Perl/Shorewall/Misc.pm b/Shorewall/Perl/Shorewall/Misc.pm
index 51a8b161f..27a09904a 100644
--- a/Shorewall/Perl/Shorewall/Misc.pm
+++ b/Shorewall/Perl/Shorewall/Misc.pm
@@ -533,7 +533,7 @@ sub add_common_rules() {
     #
     # Delete 'sfilter' chain unless there are referenced to it
     #
-    $chainref->{referenced} = 0 unless @{($chainref = $filter_table->{sfilter})->{referenced}};
+    $chainref->{referenced} = 0 unless keys %{($chainref = $filter_table->{sfilter})->{references}};
 
     run_user_exit1 'initdone';