From b4c1bf0900592187809efe68464d08fa12346fe8 Mon Sep 17 00:00:00 2001 From: Max Baker <> Date: Wed, 5 Mar 2003 19:29:22 +0000 Subject: [PATCH] error check --- Info/Layer2/Catalyst.pm | 1 + 1 file changed, 1 insertion(+) 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;