006ce894b1
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++
232 lines
3.2 KiB
Text
232 lines
3.2 KiB
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};
|
|
}
|