135/snmp-info
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

#227 remove bogus can() check in _set()

Browse Source
This commit is contained in:
Eric A. Miller
2018-03-12 17:34:28 -04:00
parent fc069c13f5
commit d00dcdad85
2 changed files with 1 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Changes
View File

@@ -2,6 +2,7 @@ version 3.50
[BUG FIXES] [BUG FIXES]
* #227 remove bogus can() check in _set()
* Fix SNMP::Info::IEEE802dot3ad when more than 1 LAG * Fix SNMP::Info::IEEE802dot3ad when more than 1 LAG
version 3.49 (2018-03-03) version 3.49 (2018-03-03)

10
lib/SNMP/Info.pm
View File

@@ -3983,16 +3983,6 @@ sub _set {
# Instance is 0 for scalars without a supplied instance # Instance is 0 for scalars without a supplied instance
$var_list->[1] = $list_iid = defined $list_iid ? $list_iid : '0'; $var_list->[1] = $list_iid = defined $list_iid ? $list_iid : '0';
# Check if this method is from a sub or from the tables.
if ( $self->can($list_attr) ) {
$self->error_throw(
"SNMP::Info::_set($list_attr,$list_val) - Failed. $list_attr is generated in a sub(). set_$list_attr sub required."
);
# if sub set_attr() existed, we wouldn't have gotten this far.
return;
}
# Lookup oid # Lookup oid
my $oid = undef; my $oid = undef;
$oid = $list_attr if SNMP::translateObj($list_attr); $oid = $list_attr if SNMP::translateObj($list_attr);