Title: [opsview-perl] [794] Added patch to settle warnings about redefined things when importing Socket6.
- Revision
- 794
- Author
- pknight
- Date
- 2013-09-23 12:23:50 +0100 (Mon, 23 Sep 2013)
Log Message
Added patch to settle warnings about redefined things when importing Socket6.
Added Paths
Added: trunk/patches/SNMP_Session/02-Socket6_redefined.patch
===================================================================
--- trunk/patches/SNMP_Session/02-Socket6_redefined.patch (rev 0)
+++ trunk/patches/SNMP_Session/02-Socket6_redefined.patch 2013-09-23 11:23:50 UTC (rev 794)
@@ -0,0 +1,21 @@
+diff -urb SNMP_Session-1.13.orig/lib/SNMP_Session.pm SNMP_Session-1.13/lib/SNMP_Session.pm
+--- SNMP_Session-1.13.orig/lib/SNMP_Session.pm 2013-09-23 11:05:39.000000000 +0000
++++ SNMP_Session-1.13/lib/SNMP_Session.pm 2013-09-23 11:15:26.000000000 +0000
+@@ -146,7 +146,7 @@
+
+ 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 @@
+ BEGIN {
+ if($SNMP_Session::ipv6available) {
+ import IO::Socket::INET6;
+- import Socket6;
++ Socket6->import(qw(inet_pton getaddrinfo));
+ }
+ }
+
_______________________________________________
Opsview-checkins mailing list
Opsview-checkins@lists.opsview.org
http://lists.opsview.org/lists/listinfo/opsview-checkins
