Package: libnet-snmp-perl
Version: 6.0.1-1
Severity: normal
Tags: patch
After each mrtg run I get the following warnings from cron by mail:
Constant subroutine SNMP_Session::AF_INET6 redefined at
/usr/share/perl/5.12/Exporter.pm line 64.
at /usr/share/perl5/SNMP_Session.pm line 149
Prototype mismatch: sub SNMP_Session::AF_INET6 () vs none at
/usr/share/perl/5.12/Exporter.pm line 64.
at /usr/share/perl5/SNMP_Session.pm line 149
Constant subroutine SNMP_Session::PF_INET6 redefined at
/usr/share/perl/5.12/Exporter.pm line 64.
at /usr/share/perl5/SNMP_Session.pm line 149
Prototype mismatch: sub SNMP_Session::PF_INET6 () vs none at
/usr/share/perl/5.12/Exporter.pm line 64.
at /usr/share/perl5/SNMP_Session.pm line 149
Constant subroutine SNMPv1_Session::AF_INET6 redefined at
/usr/share/perl/5.12/Exporter.pm line 64.
at /usr/share/perl5/SNMP_Session.pm line 608
Prototype mismatch: sub SNMPv1_Session::AF_INET6 () vs none at
/usr/share/perl/5.12/Exporter.pm line 64.
at /usr/share/perl5/SNMP_Session.pm line 608
Constant subroutine SNMPv1_Session::PF_INET6 redefined at
/usr/share/perl/5.12/Exporter.pm line 64.
at /usr/share/perl5/SNMP_Session.pm line 608
Prototype mismatch: sub SNMPv1_Session::PF_INET6 () vs none at
/usr/share/perl/5.12/Exporter.pm line 64.
at /usr/share/perl5/SNMP_Session.pm line 608
The problem is also reported at
https://bugs.gentoo.org/321701
which leads to
http://oss.oetiker.ch/mrtg-trac/ticket/45
(but not in CPAN RT, AFAICS).
The patch from the mrtg trac seems to work fine; attached as a proper patch.
Cheers,
gregor
-- System Information:
Debian Release: wheezy/sid
APT prefers testing
APT policy: (990, 'testing'), (500, 'stable'), (101, 'unstable'), (1,
'experimental')
Architecture: i386 (i686)
Kernel: Linux 2.6.38-2-686 (SMP w/1 CPU core)
Locale: LANG=C, LC_CTYPE=de_AT.utf8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/bash
Versions of packages libnet-snmp-perl depends on:
ii perl 5.12.3-7 Larry Wall's Practical Extraction
libnet-snmp-perl recommends no packages.
Versions of packages libnet-snmp-perl suggests:
ii libcrypt-des-perl 2.05-2+b2 Perl DES encryption module
ii libdigest-hmac-perl 1.02+dfsg-1 module for creating standard messa
ii libdigest-sha1-perl 2.13-1+b1 NIST SHA-1 message digest algorith
ii libio-socket-inet6-perl 2.65-1.1 Object interface for AF_INET6 doma
-- no debconf information
--- SNMP_Session.pm.orig 2011-06-01 15:48:06.000000000 +0200
+++ SNMP_Session.pm 2011-06-01 15:56:19.000000000 +0200
@@ -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(pack_sockaddr_in6 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(pack_sockaddr_in6 inet_pton getaddrinfo));
}
}
