#506 fix uninitialised error for hash keys

lib/SNMP/Info/Aggregate.pm

@@ -63,6 +63,8 @@ sub agg_ports_ifstack {
   foreach my $idx ( keys %$ifStack ) {
       my ( $higher, $lower ) = split /\./, $idx;
       next if ( $higher == 0 or $lower == 0 );
+      next unless exists $ifType->{ $higher } and defined $ifType->{ $higher };
+
       if ( $ifType->{ $higher } eq 'ieee8023adLag'
             or $ifType->{ $higher } eq 'propMultiplexor' ) {
           $ret->{ $lower } = $higher;

lib/SNMP/Info/CiscoAgg.pm

@@ -153,6 +153,8 @@ sub agg_ports_propvirtual {
   foreach my $idx ( keys %$ifStack ) {
       my ( $higher, $lower ) = split /\./, $idx;
       next if ( $higher == 0 or $lower == 0 );
+      next unless exists $ifType->{ $higher } and defined $ifType->{ $higher };
+
       if ( $ifType->{ $higher } eq 'propVirtual' ) {
 
           # lower needs also to be configured in pagpEthcOperationMode

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;
       }