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

Call delete_chain_and_references recursively.

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2013-05-12 09:29:29 -07:00
parent 4b76d8c462
commit 6551d67b2e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1639,8 +1639,8 @@ sub decrement_reference_count( $$ ) {
if ( $toref && $toref->{referenced} ) { if ( $toref && $toref->{referenced} ) {
assert($toref->{references}{$chain} > 0 , $toref, $chain ); assert($toref->{references}{$chain} > 0 , $toref, $chain );
delete $toref->{references}{$chain} unless --$toref->{references}{$chain}; delete $toref->{references}{$chain} unless --$toref->{references}{$chain};
delete_chain( $toref ) unless ( keys %{$toref->{references}} ); delete_chain_and_references ( $toref ) unless ( keys %{$toref->{references}} );
} }
} }