[gentoo-commits] gentoo-x86 commit in dev-perl/SNMP_Session/files: SNMP_Session-1.13-Socket6.patch

[Jeroen Roovers (jer)]

jer         14/05/10 18:39:15

  Added:                SNMP_Session-1.13-Socket6.patch
  Log:
  Add fix for SNMP_Session::pack_sockaddr_in6 redefinition (bug #509986).
  
  (Portage version: 2.2.10/cvs/Linux x86_64, signed Manifest commit with key 
A792A613)

Revision  Changes    Path
1.1                  dev-perl/SNMP_Session/files/SNMP_Session-1.13-Socket6.patch

file : 
http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-perl/SNMP_Session/files/SNMP_Session-1.13-Socket6.patch?rev=1.1&view=markup
plain: 
http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-perl/SNMP_Session/files/SNMP_Session-1.13-Socket6.patch?rev=1.1&content-type=text/plain

Index: SNMP_Session-1.13-Socket6.patch
===================================================================
--- a/lib/SNMP_Session.pm       Fri Nov 21 05:25:17 2008
+++ b/lib/SNMP_Session.pm       Tue Mar 16 16:14:22 2010
@@ -146,7 +146,7 @@ BEGIN {
 
     if (eval {local $SIG{__DIE__};require Socket6;} &&
        eval {local $SIG{__DIE__};require IO::Socket::INET6; 
IO::Socket::INET6->VERSION("1.26");}) {
-       import Socket6;
+       Socket6->import(qw(inet_pton getaddrinfo));
        $ipv6_addr_len = length(pack_sockaddr_in6(161, inet_pton(AF_INET6(), 
"::1")));
        $SNMP_Session::ipv6available = 1;
     }
@@ -605,7 +605,7 @@ use Carp;
 BEGIN {
     if($SNMP_Session::ipv6available) {
        import IO::Socket::INET6;
-       import Socket6;
+       Socket6->import(qw(inet_pton getaddrinfo));
     }
 }