From 3f7425b6a021e3060718318af8460e95bcae0a65 Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Thu, 22 Nov 2012 17:27:09 -0800 Subject: [PATCH] Purge %renamed before each table is processed. Signed-off-by: Tom Eastep --- Shorewall/Perl/Shorewall/Chains.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Shorewall/Perl/Shorewall/Chains.pm b/Shorewall/Perl/Shorewall/Chains.pm index f005f44de..eef62cd75 100644 --- a/Shorewall/Perl/Shorewall/Chains.pm +++ b/Shorewall/Perl/Shorewall/Chains.pm @@ -3067,6 +3067,8 @@ sub optimize_level8( $$$ ) { progress_message "\n Table $table pass $passes, $chains referenced user chains, level 8..."; + %renamed = (); + for my $chainref ( @chains ) { my $digest = ''; @@ -3443,7 +3445,7 @@ sub valid_tables() { push @table_list, 'rawpost' if have_capability( 'RAWPOST_TABLE' ); push @table_list, 'nat' if have_capability( 'NAT_ENABLED' ); push @table_list, 'mangle' if have_capability( 'MANGLE_ENABLED' ) && $config{MANGLE_ENABLED}; - push @table_list, 'filter'; + push @table_list, 'filter'; #MUST BE LAST!!! @table_list; }