From 6551d67b2e3f4a835d21818ce690d25aae37c078 Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Sun, 12 May 2013 09:29:29 -0700 Subject: [PATCH] Call delete_chain_and_references recursively. Signed-off-by: Tom Eastep --- Shorewall/Perl/Shorewall/Chains.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Shorewall/Perl/Shorewall/Chains.pm b/Shorewall/Perl/Shorewall/Chains.pm index 35b9b4b65..6e626d759 100644 --- a/Shorewall/Perl/Shorewall/Chains.pm +++ b/Shorewall/Perl/Shorewall/Chains.pm @@ -1639,8 +1639,8 @@ sub decrement_reference_count( $$ ) { if ( $toref && $toref->{referenced} ) { assert($toref->{references}{$chain} > 0 , $toref, $chain ); - delete $toref->{references}{$chain} unless --$toref->{references}{$chain}; - delete_chain( $toref ) unless ( keys %{$toref->{references}} ); + delete $toref->{references}{$chain} unless --$toref->{references}{$chain}; + delete_chain_and_references ( $toref ) unless ( keys %{$toref->{references}} ); } }