holm/shorewall_code
1
0
Fork 0
forked from extern/shorewall_code
Code Pull Requests Activity

Zero out {frozen} in a deleted chain entry

Browse Source
This commit is contained in:
Tom Eastep 2010-09-17 16:00:36 -07:00
parent 596d207dfc
commit 79bb47582a
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Shorewall/Perl/Shorewall/Chains.pm
View File

@ -624,7 +624,7 @@ sub insert_rule1($$$)
$chainref->{frozen}++;
$number = 0;
}
splice( @{$chainref->{rules}}, $number, 0, $rule );
trace( $chainref, 'I', ++$number, $rule ) if $debug;
@ -642,12 +642,13 @@ sub insert_rule($$$) {
#
# Do final work to 'delete' a chain. We leave it in the chain table but clear
# the 'referenced', 'rules' and 'references' members.
# the 'referenced', 'rules', 'references' and 'frozen' members.
#
sub delete_chain( $ ) {
my $chainref = shift;
$chainref->{referenced} = 0;
$chainref->{frozen} = 0;
$chainref->{rules} = [];
$chainref->{references} = {};
trace( $chainref, 'X', undef, '' ) if $debug;