From b3111e7e9c262d8c71e23a6dc78d5d7a888dacc3 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 20 Mar 2012 19:52:33 +0000
Subject: perl_checker cleanups

---
 lib/network/ifw.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/network/ifw.pm')

diff --git a/lib/network/ifw.pm b/lib/network/ifw.pm
index 2509b93..94ea851 100644
--- a/lib/network/ifw.pm
+++ b/lib/network/ifw.pm
@@ -113,7 +113,7 @@ sub resolve_address {
     eval {
         local $SIG{ALRM} = sub { die "ALARM" };
         alarm 2;
-        $hostname = gethostbyaddr(inet_aton($ip_addr), AF_INET);
+        $hostname = gethostbyaddr(inet_aton($ip_addr), Socket::AF_INET);
         alarm 0;
     };
     $hostname || $ip_addr;
-- 
cgit v1.2.1