From e82d46f50f0fc69df11ddd614a89312cec4f8122 Mon Sep 17 00:00:00 2001
From: teastep <teastep@fbd18981-670d-0410-9b5c-8dc0c1a9a2bb>
Date: Thu, 11 Dec 2008 01:09:43 +0000
Subject: [PATCH] Work around Perl anomalies

git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@8989 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
---
 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 eecd1f19b..58e51e8e2 100644
--- a/Shorewall-perl/Shorewall/IPAddrs.pm
+++ b/Shorewall-perl/Shorewall/IPAddrs.pm
@@ -508,12 +508,12 @@ sub validate_6address( $$ ) {
     
     unless ( valid_6address $addr ) {
 	fatal_error "Invalid IPv6 Address ($addr)" unless $allow_name;
-	fatal_error "Unknown Host ($addr)" unless (@addrs = gethostbyname2 $addr, AF_INET6);
+	fatal_error "Unknown Host ($addr)" unless (@addrs = gethostbyname2 $addr, AF_INET6());
 
 	if ( defined wantarray ) {
 	    shift @addrs for (1..4);
 	    for ( @addrs ) {
-		$_ = inet_ntop AF_INET6, $_;
+		$_ = inet_ntop AF_INET6(), $_;
 	    }
 	}
     }