From 54dbbaaa2de78e4b8606d99d191d8997565c3e87 Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Sun, 13 Jan 2013 10:34:31 -0800 Subject: [PATCH] Don't resolve DNS names at compile time. Signed-off-by: Tom Eastep --- Shorewall/Perl/Shorewall/IPAddrs.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Shorewall/Perl/Shorewall/IPAddrs.pm b/Shorewall/Perl/Shorewall/IPAddrs.pm index f48c88886..ece7fc1f0 100644 --- a/Shorewall/Perl/Shorewall/IPAddrs.pm +++ b/Shorewall/Perl/Shorewall/IPAddrs.pm @@ -202,7 +202,7 @@ sub validate_4net( $$ ) { fatal_error "Invalid IP address ($net)" unless valid_4address $net; } else { fatal_error "Invalid Network address ($_[0])" if $_[0] =~ '/' || ! defined $net; - $net = validate_4address $net, $_[1]; + validate_4address $net, $_[1]; $vlsm = 32; } @@ -635,7 +635,7 @@ sub validate_6net( $$ ) { fatal_error "Invalid IPv6 address ($net)" unless valid_6address $net; } else { fatal_error "Invalid Network address ($_[0])" if $_[0] =~ '/'; - net = validate_6address $net, $allow_name; + validate_6address $net, $allow_name; $vlsm = 128; }