File mrtg-2.17.4-socket6-fix.patch of Package mrtg

--- mrtg-2.17.4/lib/mrtg2/SNMP_Session.pm.orig	2012-01-12 11:29:00.000000000 +0100
+++ mrtg-2.17.4/lib/mrtg2/SNMP_Session.pm	2013-03-19 19:15:57.083595000 +0100
@@ -144,11 +144,11 @@ BEGIN {
     $SNMP_Session::ipv6available = 0;
     $dont_wait_flags = 0;
 
     if (eval {local $SIG{__DIE__};require Socket6;} &&
        eval {local $SIG{__DIE__};require IO::Socket::INET6; IO::Socket::INET6->VERSION("1.26");}) {
-       Socket6->import(qw(pack_sockaddr_in6 inet_pton getaddrinfo unpack_sockaddr_in6));
+       Socket6->import(qw(pack_sockaddr_in6 inet_pton getaddrinfo unpack_sockaddr_in6 inet_ntop));
 	$ipv6_addr_len = length(pack_sockaddr_in6(161, inet_pton(AF_INET6(), "::1")));
 	$SNMP_Session::ipv6available = 1;
     }
     eval 'local $SIG{__DIE__};local $SIG{__WARN__};$dont_wait_flags = MSG_DONTWAIT();';
 }
@@ -599,11 +599,11 @@ use IO::Socket;
 use Carp;
 
 BEGIN {
     if($SNMP_Session::ipv6available) {
 	    import IO::Socket::INET6;
-        Socket6->import(qw(pack_sockaddr_in6 inet_pton getaddrinfo unpack_sockaddr_in6));
+        Socket6->import(qw(pack_sockaddr_in6 inet_pton getaddrinfo unpack_sockaddr_in6 inet_ntop));
     }
 }
 
 @ISA = qw(SNMP_Session);