From aa17e6865c8907908f97498eed7e7af7ee3d42b0 Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Sat, 4 Nov 2023 11:50:16 +0000
Subject: [PATCH] #505 fix uninitialised error for hash keys

---
 lib/SNMP/Info/Layer3/Foundry.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lib/SNMP/Info/Layer3/Foundry.pm b/lib/SNMP/Info/Layer3/Foundry.pm
index dd8f4c93..271773e3 100644
--- a/lib/SNMP/Info/Layer3/Foundry.pm
+++ b/lib/SNMP/Info/Layer3/Foundry.pm
@@ -873,8 +873,12 @@ sub agg_ports {
 
   my $ret = {};
   foreach my $m (keys %$trunks) {
+      next unless $m and exists $ports->{$m} and defined $ports->{$m};
+
       my $skip = 0;
       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};
           $skip += 2;
       }