135/snmp-info
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix for uninitialized value in i_name()

Browse Source
This commit is contained in:
Eric Miller
2007-11-04 02:58:01 +00:00
parent a6d16bdfc9
commit b17f04e762
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Info/Layer2/Catalyst.pm
View File

@@ -124,7 +124,7 @@ sub os_ver {
# Workaround for incomplete bp_index # Workaround for incomplete bp_index
sub bp_index { sub bp_index {
my $cat = shift; my $cat = shift;
my $p_index = $cat->p_port(); my $p_index = $cat->p_port();
my $b_index = $cat->p_oidx(); my $b_index = $cat->p_oidx();
@@ -144,11 +144,11 @@ sub cisco_comm_indexing {
} }
sub interfaces { sub interfaces {
my $self = shift; my $cat = shift;
my $partial = shift; my $partial = shift;
my $i_index = $self->i_index($partial); my $i_index = $cat->i_index($partial);
my $portnames = $self->p_port() || {}; my $portnames = $cat->p_port() || {};
my %portmap = reverse %$portnames; my %portmap = reverse %$portnames;
my %interfaces = (); my %interfaces = ();
@@ -162,17 +162,17 @@ sub interfaces {
} }
sub i_name { sub i_name {
my $stack = shift; my $cat = shift;
my $partial = shift; my $partial = shift;
my $p_port = $stack->p_port() || {}; my $p_port = $cat->p_port() || {};
my %mapping = reverse %$p_port; my $p_name = $cat->p_name() || {};
my $p_name = $stack->p_name($mapping{$partial}) || {};
my %i_name; my %i_name;
foreach my $port (keys %$p_name) { foreach my $port (keys %$p_name) {
my $iid = $p_port->{$port}; my $iid = $p_port->{$port};
next unless defined $iid; next unless defined $iid;
next if (defined $partial and $iid !~ /^$partial$/);
$i_name{$iid} = $p_name->{$port}; $i_name{$iid} = $p_name->{$port};
} }
return \%i_name; return \%i_name;