--- bin/mrtg.orig	2011-06-16 17:52:27.000000000 +0900
+++ bin/mrtg	2011-02-18 23:34:27.000000000 +0900
@@ -2244,7 +2244,7 @@
             my @res;
             my ($too,$port,$otheropts) = split(':', $$target{SnmpOpt}, 3);
             $port = 161 unless defined $port;
-            @res = getaddrinfo($hostname, $port, &Socket::AF_UNSPEC(), &Socket::SOCK_DGRAM());
+            @res = getaddrinfo($hostname, $port, AF_UNSPEC(), SOCK_DGRAM());
             if (scalar (@res) < 5) {
                 warn "$NOW: WARNING: Skipping host $hostname as it does not resolve to an IPv4 or IPv6 address\n";
                 return 'DEADHOST';