From 2e3635ff50a33b99ea250abc3bf1742206e7f634 Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Fri, 17 Sep 2010 12:08:48 -0700
Subject: [PATCH] Be sure that {frozen} is defined

---
 Shorewall/Perl/Shorewall/Chains.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Shorewall/Perl/Shorewall/Chains.pm b/Shorewall/Perl/Shorewall/Chains.pm
index 592a96e5c..935259c0d 100644
--- a/Shorewall/Perl/Shorewall/Chains.pm
+++ b/Shorewall/Perl/Shorewall/Chains.pm
@@ -690,8 +690,7 @@ sub increment_reference_count( $$ ) {
 #
 # The rules generated by interface options are added to the interfaces's input chain and
 # forward chain. Shorewall::Rules::generate_matrix() may decide to move those rules to
-# a zone-oriented chain, hence this function.
-#
+
 sub move_rules( $$ ) {
     my ($chain1, $chain2 ) = @_;
 
@@ -1011,7 +1010,8 @@ sub new_chain($$)
 		     loglevel   => '',
 		     log        => 1,
 		     cmdlevel   => 0,
-		     references => {} };
+		     references => {},
+		     frozen     => 0 };
 
     trace( $chainref, 'N', undef, '' ) if $debug;