$NetBSD: patch-aa,v 1.1.2.2 2010/11/14 22:34:41 tron 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};
 }
