added check for undef port in c_ip()

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