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

#378 fix several uninitialized vars

Browse Source
This commit is contained in:
Oliver Gorwits
2021-10-07 10:19:28 +01:00
parent d535cea7db
commit a0cd7c57e2
3 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/SNMP/Info/IPv6.pm
View File

@@ -349,7 +349,7 @@ sub ipv6_addr_prefixlength {
# Remove interface specific part from vrf interfaces # Remove interface specific part from vrf interfaces
if ($row =~ /^((\d+\.){17}\d+)/) { $row = $1 } if ($row =~ /^((\d+\.){17}\d+)/) { $row = $1 }
# Remove the OID part from the value # Remove the OID part from the value
my $val = $ipv6_addr_prefix->{$row}; my $val = $ipv6_addr_prefix->{$row} || '';
if ( $val =~ /^.+?((?:\d+\.){19}(\d+))$/ ) { if ( $val =~ /^.+?((?:\d+\.){19}(\d+))$/ ) {
$val = $2; $val = $2;
$return->{$row} = $val; $return->{$row} = $val;

4
lib/SNMP/Info/Layer2.pm
View File

@@ -105,8 +105,8 @@ sub model {
sub vendor { sub vendor {
my $l2 = shift; my $l2 = shift;
my $model = $l2->model(); my $model = $l2->model() || '';
my $descr = $l2->description(); my $descr = $l2->description() || '';
if ( $model =~ /hp/i or $descr =~ /\bhp\b/i ) { if ( $model =~ /hp/i or $descr =~ /\bhp\b/i ) {
return 'hp'; return 'hp';

4
lib/SNMP/Info/Layer3.pm
View File

@@ -357,8 +357,8 @@ sub interfaces {
sub vendor { sub vendor {
my $l3 = shift; my $l3 = shift;
my $descr = $l3->description(); my $descr = $l3->description() || '';
my $id = $l3->id(); my $id = $l3->id() || '';
# .1.3.6.1.4.1.9.1 is the CISCO-PRODUCTS-MIB # .1.3.6.1.4.1.9.1 is the CISCO-PRODUCTS-MIB
# .1.3.6.1.4.1.9.9.368.4 is an old tree that Cisco CSSs were numbered from # .1.3.6.1.4.1.9.9.368.4 is an old tree that Cisco CSSs were numbered from