From af51ee7ea453583adabeefa7fb6115afb14c3b80 Mon Sep 17 00:00:00 2001 From: Max Baker <> Date: Wed, 26 Mar 2003 20:33:39 +0000 Subject: [PATCH] added check for undef port in c_ip() --- Info/Layer2/Bay.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/Info/Layer2/Bay.pm b/Info/Layer2/Bay.pm index 07cbdbb7..7bc84d33 100644 --- a/Info/Layer2/Bay.pm +++ b/Info/Layer2/Bay.pm @@ -154,6 +154,7 @@ sub c_ip { my %ip_port; foreach my $entry (keys %$bay_topo_ip){ my $port = $bay_topo_port->{$entry}; + next unless defined $port; next if $port == 0; my $ip = $bay_topo_ip->{$entry}; push(@{$ip_port{$port}},$ip);