From cca2c1837072b213bc2ecf5f65afd9d9f4532f62 Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Wed, 7 Apr 2010 20:07:03 -0700
Subject: [PATCH] Another case where reference counts are wrong

Signed-off-by: Tom Eastep <teastep@shorewall.net>
---
 Shorewall/Perl/Shorewall/Chains.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Shorewall/Perl/Shorewall/Chains.pm b/Shorewall/Perl/Shorewall/Chains.pm
index 846ab4557..c2140fda4 100644
--- a/Shorewall/Perl/Shorewall/Chains.pm
+++ b/Shorewall/Perl/Shorewall/Chains.pm
@@ -1455,6 +1455,7 @@ sub replace_references( $$ ) {
 		for ( @{$fromref->{rules}} ) {
 		    $rule++;
 		    if ( defined && s/ -([jg]) $chainref->{name}(\b)/ -$1 ${target}$2/ ) {
+			add_reference ( $fromref, $chain_table{$table}{$target} );
 			$count++;
 			trace( $fromref, 'R', $rule, $_ ) if $debug;
 		    }