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++

3 files changed, 236 insertions, 3 deletions

diff --git a/net/p5-Net-SNMP/Makefile b/net/p5-Net-SNMP/Makefile
index 238f9476c14..5a261da017e 100644
--- a/net/p5-Net-SNMP/Makefile
+++ b/net/p5-Net-SNMP/Makefile
@@ -1,9 +1,9 @@
-# $NetBSD: Makefile,v 1.25 2010/08/21 16:35:28 seb Exp $
+# $NetBSD: Makefile,v 1.26 2010/11/13 17:06:04 bouyer Exp $
 #
 
 DISTNAME=	Net-SNMP-5.2.0
 PKGNAME=	p5-${DISTNAME}
-PKGREVISION=	2
+PKGREVISION=	3
 SVR4_PKGNAME=	p5nsn
 CATEGORIES=	net perl5
 MASTER_SITES=	${MASTER_SITE_PERL_CPAN:=Net/}
diff --git a/net/p5-Net-SNMP/distinfo b/net/p5-Net-SNMP/distinfo
index c1f848763f9..a24c34dd662 100644
--- a/net/p5-Net-SNMP/distinfo
+++ b/net/p5-Net-SNMP/distinfo
@@ -1,5 +1,6 @@
-$NetBSD: distinfo,v 1.8 2005/11/07 13:31:06 martti Exp $
+$NetBSD: distinfo,v 1.9 2010/11/13 17:06:04 bouyer Exp $
 
 SHA1 (Net-SNMP-5.2.0.tar.gz) = 32b43dade6a9fed07377613a296111968e0a68e7
 RMD160 (Net-SNMP-5.2.0.tar.gz) = 43e179be3ede313f4b2550d698ad4454ea4a9d7b
 Size (Net-SNMP-5.2.0.tar.gz) = 83175 bytes
+SHA1 (patch-aa) = 3b4ea0a95792b7a480ea4efe57ee1bccea908633
diff --git a/net/p5-Net-SNMP/patches/patch-aa b/net/p5-Net-SNMP/patches/patch-aa
new file mode 100644
index 00000000000..51388c388f4
--- /dev/null
+++ b/net/p5-Net-SNMP/patches/patch-aa
@@ -0,0 +1,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};
+ }