From 48b993f0cfe6e9f3811a86cb2c3cefd9c67f1500 Mon Sep 17 00:00:00 2001
From: teastep <teastep@fbd18981-670d-0410-9b5c-8dc0c1a9a2bb>
Date: Fri, 27 Jul 2007 04:11:44 +0000
Subject: [PATCH] Better detection of out-of-order policy file

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

diff --git a/Shorewall-perl/Shorewall/Policy.pm b/Shorewall-perl/Shorewall/Policy.pm
index c8ba32240..2c567918d 100644
--- a/Shorewall-perl/Shorewall/Policy.pm
+++ b/Shorewall-perl/Shorewall/Policy.pm
@@ -226,6 +226,8 @@ sub validate_policy()
 		} else {
 		    fatal_error "Duplicate policy: $client $server $policy";
 		}
+	    } elsif ( $chainref->{policy} ) {
+		fatal_error "Duplicate policy: $client $server $policy";
 	    } else {
 		$chainref->{is_policy} = 1;
 		$chainref->{policy} = $policy;