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

#505 fix uninitialised error for hash keys

Browse Source
This commit is contained in:
Oliver Gorwits
2023-11-04 11:50:16 +00:00
parent 34797b100a
commit aa17e6865c
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -873,8 +873,12 @@ sub agg_ports {
my $ret = {}; my $ret = {};
foreach my $m (keys %$trunks) { foreach my $m (keys %$trunks) {
next unless $m and exists $ports->{$m} and defined $ports->{$m};
my $skip = 0; my $skip = 0;
while (my $s = unpack("x${skip}n2", $trunks->{$m})) { while (my $s = unpack("x${skip}n2", $trunks->{$m})) {
next unless $s and exists $ports->{$s} and defined $ports->{$s};
$ret->{ $ports->{$s} } = $ports->{$m}; $ret->{ $ports->{$s} } = $ports->{$m};
$skip += 2; $skip += 2;
} }