From a116eb5235881e82cb54331ce0620fb75c5541f3 Mon Sep 17 00:00:00 2001
From: teastep <teastep@fbd18981-670d-0410-9b5c-8dc0c1a9a2bb>
Date: Sun, 22 Apr 2007 22:33:37 +0000
Subject: [PATCH] Fix explicit intrazone policy

git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6072 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
---
 Shorewall-perl/Shorewall/Policy.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Shorewall-perl/Shorewall/Policy.pm b/Shorewall-perl/Shorewall/Policy.pm
index 4a1201e4c..5dda40504 100644
--- a/Shorewall-perl/Shorewall/Policy.pm
+++ b/Shorewall-perl/Shorewall/Policy.pm
@@ -190,6 +190,7 @@ sub validate_policy()
 	    if ( $chainref->{is_policy} ) {
 		if ( $chainref->{is_optional} ) {
 		    $chainref->{is_optional} = 0;
+		    $chainref->{policy} = $policy;
 		} else {
 		    fatal_error "Duplicate policy: $client $server $policy";
 		}