From 4d0e8d129bd33bdc5fbecdbf33a7490b077bf889 Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Tue, 14 Sep 2010 18:04:27 -0700
Subject: [PATCH] Add dup blacklist message

---
 Shorewall/Perl/Shorewall/Zones.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Shorewall/Perl/Shorewall/Zones.pm b/Shorewall/Perl/Shorewall/Zones.pm
index d87174458..c9a18a3d9 100644
--- a/Shorewall/Perl/Shorewall/Zones.pm
+++ b/Shorewall/Perl/Shorewall/Zones.pm
@@ -975,6 +975,7 @@ sub process_interface( $$ ) {
 			$options{arp_ignore} = 1;
 		    }
 		} elsif ( $option eq 'blacklist' ) {
+		    fatal_error "Duplicate blacklist option" if $options{blacklist};
 		    $value = BL_IN unless ( defined $value && $value ne '' );
 		    fatal_error "Invalid 'blacklist' value ( $value )" unless $value =~ /^[12]$/;
 		    $options{blacklist} = $value;