diff --git a/Info/Layer2/Catalyst.pm b/Info/Layer2/Catalyst.pm index 77e0b499..b35ba98b 100644 --- a/Info/Layer2/Catalyst.pm +++ b/Info/Layer2/Catalyst.pm @@ -183,6 +183,7 @@ sub i_name { my %i_name; foreach my $port (keys %$p_name) { my $iid = $p_port->{$port}; + next unless defined $iid; $i_name{$iid} = $p_name->{$port}; } return \%i_name;