ports/181229: p5-SNMP_Session-1.13_1 has an undefined subroutine call for pack_sockaddr_in6

[Darren Henderson]

>Number:         181229
>Category:       ports
>Synopsis:       p5-SNMP_Session-1.13_1 has an undefined subroutine call for pack_sockaddr_in6
>Confidential:   no
>Severity:       non-critical
>Priority:       low
>Responsible:    freebsd-ports-bugs
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          sw-bug
>Submitter-Id:   current-users
>Arrival-Date:   Sun Aug 11 18:40:00 UTC 2013
>Closed-Date:
>Last-Modified:
>Originator:     Darren Henderson
>Release:        9.1-STABLE
>Organization:
>Environment:
FreeBSD zzz.zzz.zzz 9.1-STABLE FreeBSD 9.1-STABLE #0 r249490: Mon Apr 15 09:57:04 EDT 2013     darren at zzz.zzz:/usr/obj/usr/src/sys/GENERIC  amd64
>Description:


Portupgrade of p5-SNMP_Session to 1.13_1 yesterday resulted in failures of mrtg runs with the following:

Undefined subroutine &SNMP_Session::pack_sockaddr_in6 called at /usr/loca/lib/p erl5/site_perl/5.12/SNMP_Session.pm line 150.
BEGIN failed--compilation aborted at /usr/local/lib/perl5/site_perl/5.12/SNMP_Se ssion.pm line 154.
Compilation failed in require at /usr/local/lib/perl5/site_perl/5.12/SNMP_util.p  m line 44.
BEGIN failed--compilation aborted at /usr/local/lib/perl5/site_perl/5.12/SNMP_ut  il.pm line 44.
Compilation failed in require at /usr/local/lib/perl5/site_perl/5.12/MRTG_lib.pm  line 662.

System had already moved from using the x.xx.xx to the x.xx model lib path for perl. Running perl 5.12.5

>How-To-Repeat:

>Fix:
Change call of pack_sockaddr_in6 in /usr/local/lib/perl5/site_perl/5.12/Session_SNMP.pm to Socket6::pack_sockaddr_in6



Patch attached with submission follows:

--- SNMP_Session.pm.orig	2013-08-11 12:41:21.000000000 -0400
+++ SNMP_Session.pm	2013-08-11 14:09:24.000000000 -0400
@@ -147,7 +147,7 @@
     if (eval {local $SIG{__DIE__};require Socket6;} &&
        eval {local $SIG{__DIE__};require IO::Socket::INET6; IO::Socket::INET6->VERSION("1.26");}) {
        	Socket6->import(qw(inet_pton inet_ntop getaddrinfo));
-	$ipv6_addr_len = length(pack_sockaddr_in6(161, inet_pton(AF_INET6(), "::1")));
+	$ipv6_addr_len = length(Socket6::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();';


>Release-Note:
>Audit-Trail:
>Unformatted: