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

#464 check in case non numeric key in cache befor inc

Browse Source
This commit is contained in:
Oliver Gorwits
2023-02-20 15:32:37 +00:00
parent ef4dfbe870
commit cdafa791d0
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/SNMP/Info.pm
View File

@@ -15,6 +15,7 @@ use strict;
use Exporter; use Exporter;
use SNMP; use SNMP;
use Carp; use Carp;
use Scalar::Util ();
use Math::BigInt; use Math::BigInt;
use NetAddr::IP::Lite ':lower'; use NetAddr::IP::Lite ':lower';
@@ -4924,6 +4925,11 @@ sub _cache {
my $store = $self->store(); my $store = $self->store();
if (ref {} eq ref $data) { if (ref {} eq ref $data) {
if (! Scalar::Util::looks_like_number($self->{"_${attr}"}) {
# https://github.com/netdisco/snmp-info/issues/464
# perhaps this is being set twice and first time gets $data ??
$self->{"_${attr}"} = 0;
}
$self->{"_${attr}"}++; $self->{"_${attr}"}++;
$store->{$attr} = $data; $store->{$attr} = $data;
} }