head 1.2; access; symbols pkgsrc-2013Q2:1.2.0.4 pkgsrc-2013Q2-base:1.2 pkgsrc-2012Q4:1.2.0.2 pkgsrc-2012Q4-base:1.2 pkgsrc-2012Q1:1.1.0.14 pkgsrc-2012Q1-base:1.1 pkgsrc-2011Q4:1.1.0.12 pkgsrc-2011Q4-base:1.1 pkgsrc-2011Q3:1.1.0.10 pkgsrc-2011Q3-base:1.1 pkgsrc-2011Q2:1.1.0.8 pkgsrc-2011Q2-base:1.1 pkgsrc-2011Q1:1.1.0.6 pkgsrc-2011Q1-base:1.1 pkgsrc-2010Q4:1.1.0.4 pkgsrc-2010Q4-base:1.1 pkgsrc-2010Q3:1.1.0.2; locks; strict; comment @# @; 1.2 date 2012.05.31.09.07.07; author sno; state dead; branches; next 1.1; 1.1 date 2010.11.13.17.06.05; author bouyer; state Exp; branches 1.1.2.1; next ; 1.1.2.1 date 2010.11.13.17.06.05; author tron; state dead; branches; next 1.1.2.2; 1.1.2.2 date 2010.11.14.22.34.41; author tron; state Exp; branches; next ; desc @@ 1.2 log @Updating package for CPAN module Net::SNMP in net/p5-Net-SNMP from 5.2.0nb4 to 6.0.1. pkgsrc changes: - Adjust license - Adjust dependencies - remove patch which correct bogus attributes (upstream fixed) Upstream changes: RELEASE 6.0.1 SEP-09-2010 - Removed all occurrences of the "locked" attribute that was deprecated in Perl 5.12.0. - Changed the test validating the presence of a monotonic time value to check for invalid implementations. - The SNMPv3 contextEngineID and contextName are now stored as part of the request allowing for these values to be changed between messages. RELEASE 6.0.0 SEP-09-2009 - Substantial internal code cleanup was performed based upon the Perl::Critic module and the "Perl Best Practices" book. - Added support for the Module::Build system for building, testing, and installing Perl modules. - The translation logic for OCTET STRINGs now uses the definition of a DisplayString in RFC 2579 to determine if the octets are to be converted into a hexadecimal representation. - The get_table() and get_entries() methods were refactored as part of the code cleanup. The get_entries() method now handles "holes" in tables better and indexes with a value of zero. - The inheritance structure of the Transport Domain objects was updated to reduce code duplication and increase maintainability. - The resolution of IPv6 addresses was made more exhaustive. - The handling of OBJECT IDENTIFIERs was made more efficient by using [un]pack() with a BER compressed integer template. - Additional validation of the values passed to most methods is now performed and the error messages have been made more robust. - The documented examples were updated based upon commonly asked questions (specifically Example 3 and Example 4). - A Response-PDU with an error-status set to "noError" no longer generates an error when the error-index is non-zero, as decribed in Section 4.2.4 of RFC 3416. - The function oid_lex_cmp() was added to provide for the lexicographical comparison of two OBJECT IDENTIFIERs. - The error-status is no longer set for the exceptions noSuchObject, noSuchInstance, and endOfMibView when translation is not enabled. @ text @$NetBSD: patch-aa,v 1.1 2010/11/13 17:06:05 bouyer Exp $ From 6.0.1: Removed all occurrences of the "locked" attribute that was deprecated in Perl 5.12.0. --- lib/Net/SNMP.pm.orig 2005-10-20 16:17:03.000000000 +0200 +++ lib/Net/SNMP.pm 2010-11-13 17:51:45.000000000 +0100 @@@@ -585,7 +585,7 @@@@ =cut -sub close : locked : method +sub close { my ($this) = @@_; @@@@ -652,7 +652,7 @@@@ =cut -sub get_request : locked : method +sub get_request { my $this = shift; @@@@ -705,7 +705,7 @@@@ =cut -sub get_next_request : locked : method +sub get_next_request { my $this = shift; @@@@ -761,7 +761,7 @@@@ =cut -sub set_request : locked : method +sub set_request { my $this = shift; @@@@ -866,7 +866,7 @@@@ =cut -sub trap : locked : method +sub trap { my $this = shift; @@@@ -949,7 +949,7 @@@@ =cut -sub get_bulk_request : locked : method +sub get_bulk_request { my $this = shift; @@@@ -1025,7 +1025,7 @@@@ =cut -sub inform_request : locked : method +sub inform_request { my $this = shift; @@@@ -1100,7 +1100,7 @@@@ =cut -sub snmpv2_trap : locked : method +sub snmpv2_trap { my $this = shift; @@@@ -1165,7 +1165,7 @@@@ =cut -sub get_table : locked : method +sub get_table { my $this = shift; @@@@ -1322,7 +1322,7 @@@@ =cut -sub get_entries : locked : method +sub get_entries { my $this = shift; @@@@ -1528,7 +1528,7 @@@@ =cut -sub version : locked : method +sub version { my ($this) = @@_; @@@@ -1546,7 +1546,7 @@@@ =cut -sub error : locked : method +sub error { $_[0]->{_error} || ''; } @@@@ -1560,7 +1560,7 @@@@ =cut -sub hostname : locked : method +sub hostname { $_[0]->{_hostname}; } @@@@ -1574,7 +1574,7 @@@@ =cut -sub error_status : locked : method +sub error_status { defined($_[0]->{_pdu}) ? $_[0]->{_pdu}->error_status : 0; } @@@@ -1588,7 +1588,7 @@@@ =cut -sub error_index : locked : method +sub error_index { defined($_[0]->{_pdu}) ? $_[0]->{_pdu}->error_index : 0; } @@@@ -1610,7 +1610,7 @@@@ =cut -sub var_bind_list : locked : method +sub var_bind_list { defined($_[0]->{_pdu}) ? $_[0]->{_pdu}->var_bind_list : undef; } @@@@ -1630,7 +1630,7 @@@@ =cut -sub var_bind_names : locked : method +sub var_bind_names { defined($_[0]->{_pdu}) ? @@{$_[0]->{_pdu}->var_bind_names} : (); } @@@@ -1650,7 +1650,7 @@@@ =cut -sub var_bind_types : locked : method +sub var_bind_types { defined($_[0]->{_pdu}) ? $_[0]->{_pdu}->var_bind_types : undef; } @@@@ -1671,7 +1671,7 @@@@ =cut -sub timeout : locked : method +sub timeout { my $this = shift; @@@@ -1699,7 +1699,7 @@@@ =cut -sub retries : locked : method +sub retries { my $this = shift; @@@@ -1734,7 +1734,7 @@@@ =cut -sub max_msg_size : locked : method +sub max_msg_size { my $this = shift; @@@@ -1843,7 +1843,7 @@@@ =cut -sub translate : locked : method +sub translate { my ($this, $mask) = @@_; @@@@ -1965,22 +1965,22 @@@@ debug(undef, $_[0]); } -sub pdu : locked : method +sub pdu { $_[0]->{_pdu}; } -sub nonblocking : locked : method +sub nonblocking { $_[0]->{_nonblocking}; } -sub security : locked : method +sub security { $_[0]->{_security}; } -sub transport : locked : method +sub transport { $_[0]->{_transport}; } @ 1.1 log @Bring in change from 6.0.1: Removed all occurrences of the "locked" attribute that was deprecated in Perl 5.12.0. I didn't upgrade the package to 6.0.1 because it causes incompatibilities with net/mrtg PKGREVISON++ @ text @d1 1 a1 1 $NetBSD: $ @ 1.1.2.1 log @file patch-aa was added on branch pkgsrc-2010Q3 on 2010-11-14 22:34:41 +0000 @ text @d1 232 @ 1.1.2.2 log @Pullup ticket #3272 - requested by bouyer net/p5-Net-SNMP: bug fix patch Revisions pulled up: - net/p5-Net-SNMP/Makefile 1.26 - net/p5-Net-SNMP/distinfo 1.9 - net/p5-Net-SNMP/patches/patch-aa 1.1 --- Module Name: pkgsrc Committed By: bouyer Date: Sat Nov 13 17:06:05 UTC 2010 Modified Files: pkgsrc/net/p5-Net-SNMP: Makefile distinfo Added Files: pkgsrc/net/p5-Net-SNMP/patches: patch-aa Log Message: Bring in change from 6.0.1: Removed all occurrences of the "locked" attribute that was deprecated in Perl 5.12.0. I didn't upgrade the package to 6.0.1 because it causes incompatibilities with net/mrtg PKGREVISON++ @ text @a0 232 $NetBSD: patch-aa,v 1.1 2010/11/13 17:06:05 bouyer Exp $ From 6.0.1: Removed all occurrences of the "locked" attribute that was deprecated in Perl 5.12.0. --- lib/Net/SNMP.pm.orig 2005-10-20 16:17:03.000000000 +0200 +++ lib/Net/SNMP.pm 2010-11-13 17:51:45.000000000 +0100 @@@@ -585,7 +585,7 @@@@ =cut -sub close : locked : method +sub close { my ($this) = @@_; @@@@ -652,7 +652,7 @@@@ =cut -sub get_request : locked : method +sub get_request { my $this = shift; @@@@ -705,7 +705,7 @@@@ =cut -sub get_next_request : locked : method +sub get_next_request { my $this = shift; @@@@ -761,7 +761,7 @@@@ =cut -sub set_request : locked : method +sub set_request { my $this = shift; @@@@ -866,7 +866,7 @@@@ =cut -sub trap : locked : method +sub trap { my $this = shift; @@@@ -949,7 +949,7 @@@@ =cut -sub get_bulk_request : locked : method +sub get_bulk_request { my $this = shift; @@@@ -1025,7 +1025,7 @@@@ =cut -sub inform_request : locked : method +sub inform_request { my $this = shift; @@@@ -1100,7 +1100,7 @@@@ =cut -sub snmpv2_trap : locked : method +sub snmpv2_trap { my $this = shift; @@@@ -1165,7 +1165,7 @@@@ =cut -sub get_table : locked : method +sub get_table { my $this = shift; @@@@ -1322,7 +1322,7 @@@@ =cut -sub get_entries : locked : method +sub get_entries { my $this = shift; @@@@ -1528,7 +1528,7 @@@@ =cut -sub version : locked : method +sub version { my ($this) = @@_; @@@@ -1546,7 +1546,7 @@@@ =cut -sub error : locked : method +sub error { $_[0]->{_error} || ''; } @@@@ -1560,7 +1560,7 @@@@ =cut -sub hostname : locked : method +sub hostname { $_[0]->{_hostname}; } @@@@ -1574,7 +1574,7 @@@@ =cut -sub error_status : locked : method +sub error_status { defined($_[0]->{_pdu}) ? $_[0]->{_pdu}->error_status : 0; } @@@@ -1588,7 +1588,7 @@@@ =cut -sub error_index : locked : method +sub error_index { defined($_[0]->{_pdu}) ? $_[0]->{_pdu}->error_index : 0; } @@@@ -1610,7 +1610,7 @@@@ =cut -sub var_bind_list : locked : method +sub var_bind_list { defined($_[0]->{_pdu}) ? $_[0]->{_pdu}->var_bind_list : undef; } @@@@ -1630,7 +1630,7 @@@@ =cut -sub var_bind_names : locked : method +sub var_bind_names { defined($_[0]->{_pdu}) ? @@{$_[0]->{_pdu}->var_bind_names} : (); } @@@@ -1650,7 +1650,7 @@@@ =cut -sub var_bind_types : locked : method +sub var_bind_types { defined($_[0]->{_pdu}) ? $_[0]->{_pdu}->var_bind_types : undef; } @@@@ -1671,7 +1671,7 @@@@ =cut -sub timeout : locked : method +sub timeout { my $this = shift; @@@@ -1699,7 +1699,7 @@@@ =cut -sub retries : locked : method +sub retries { my $this = shift; @@@@ -1734,7 +1734,7 @@@@ =cut -sub max_msg_size : locked : method +sub max_msg_size { my $this = shift; @@@@ -1843,7 +1843,7 @@@@ =cut -sub translate : locked : method +sub translate { my ($this, $mask) = @@_; @@@@ -1965,22 +1965,22 @@@@ debug(undef, $_[0]); } -sub pdu : locked : method +sub pdu { $_[0]->{_pdu}; } -sub nonblocking : locked : method +sub nonblocking { $_[0]->{_nonblocking}; } -sub security : locked : method +sub security { $_[0]->{_security}; } -sub transport : locked : method +sub transport { $_[0]->{_transport}; } @