From 5db317b6f78c49402e844152f720349043ddf2d0 Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Sun, 27 Jan 2013 07:55:55 -0800
Subject: [PATCH] Clean up fix for optimize 8 performance issue

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

diff --git a/Shorewall/Perl/Shorewall/Chains.pm b/Shorewall/Perl/Shorewall/Chains.pm
index b7332e675..2b4ae2af3 100644
--- a/Shorewall/Perl/Shorewall/Chains.pm
+++ b/Shorewall/Perl/Shorewall/Chains.pm
@@ -2739,9 +2739,10 @@ sub replace_references( $$$;$ ) {
 		    $count++;
 		    trace( $fromref, 'R', $rule, $_ ) if $debug;
 		}
-
 	    }
-	    
+	    #
+	    # The chain has been modified, so the digest is now stale
+	    #
 	    calculate_digest( $fromref ) if $digest;
 	    #
 	    # The passed chain is no longer referenced by chain $fromref