From a91bca8e9e4d08099bc3daa06c81cb90ca8270f1 Mon Sep 17 00:00:00 2001
From: teastep <teastep@fbd18981-670d-0410-9b5c-8dc0c1a9a2bb>
Date: Mon, 24 Mar 2008 17:35:52 +0000
Subject: [PATCH] Fix perl run-time error

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

diff --git a/Shorewall-perl/Shorewall/IPAddrs.pm b/Shorewall-perl/Shorewall/IPAddrs.pm
index f0195472a..b6cd5a6e4 100644
--- a/Shorewall-perl/Shorewall/IPAddrs.pm
+++ b/Shorewall-perl/Shorewall/IPAddrs.pm
@@ -134,6 +134,8 @@ sub validate_net( $$ ) {
     my ($net, $vlsm, $rest) = split( '/', $_[0], 3 );
     my $allow_name = $_[1];
 
+    $net = '' unless defined $net;
+
     fatal_error "Missing address" if $net eq '';
     fatal_error "An ipset name ($net) is not allowed in this context" if substr( $net, 0, 1 ) eq '+';