From 9d20374929b8371555d612369348dda0a99c07ed Mon Sep 17 00:00:00 2001
From: teastep <teastep@fbd18981-670d-0410-9b5c-8dc0c1a9a2bb>
Date: Sun, 14 Dec 2008 02:15:29 +0000
Subject: [PATCH] Suppress harmless Perl undefined value warnings

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

diff --git a/Shorewall-perl/Shorewall/Zones.pm b/Shorewall-perl/Shorewall/Zones.pm
index e3c8b91fa..c1148a186 100644
--- a/Shorewall-perl/Shorewall/Zones.pm
+++ b/Shorewall-perl/Shorewall/Zones.pm
@@ -281,7 +281,7 @@ sub determine_zones()
 	    $type = 'ip';
 	    $ip = 1;
 	} elsif ( $type =~ /^ipsec([46])?$/i ) {
-	    fatal_error "Invalid zone type ($type)" if ( $1 == 4 && $family == F_IPV6 ) || ( $1 == 6 && $family == F_IPV4 );
+	    fatal_error "Invalid zone type ($type)" if $1 && (($1 == 4 && $family == F_IPV6 ) || ( $1 == 6 && $family == F_IPV4 ));
 	    $type = 'ipsec';
 	} elsif ( $type =~ /^bport([46])?$/i ) {
 	    fatal_error "Invalid zone type ($type)" if ( $1 == 4 && $family == F_IPV6 ) || ( $1 == 6 && $family == F_IPV4 );