From 380d427a5dd23003969d3675533cfd5648be3a7f Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Sat, 26 Jan 2013 17:46:31 -0800
Subject: [PATCH] Dramatically reduce the CPU cost of optimize 8.

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

diff --git a/Shorewall/Perl/Shorewall/Chains.pm b/Shorewall/Perl/Shorewall/Chains.pm
index e1925619d..b7332e675 100644
--- a/Shorewall/Perl/Shorewall/Chains.pm
+++ b/Shorewall/Perl/Shorewall/Chains.pm
@@ -2740,8 +2740,9 @@ sub replace_references( $$$;$ ) {
 		    trace( $fromref, 'R', $rule, $_ ) if $debug;
 		}
 
-		calculate_digest( $fromref ) if $digest;
 	    }
+	    
+	    calculate_digest( $fromref ) if $digest;
 	    #
 	    # The passed chain is no longer referenced by chain $fromref
 	    #