Fixed potential warnings about "Use of uninitialized value in string eq"

This commit is contained in:
Jeroen van Ingen
2010-08-23 11:47:58 +00:00
parent 2529305803
commit 0ccf5409ca

View File

@@ -216,15 +216,15 @@ sub ipv6_n2p_state {
sub method_used { sub method_used {
my $info = shift; my $info = shift;
my $return; my $return = 'none of the MIBs';
if ($info::METHOD eq IPMIB) { if (defined $info::METHOD) {
$return = 'IP-MIB'; if ($info::METHOD eq IPMIB) {
} elsif ($info::METHOD eq IPV6MIB) { $return = 'IP-MIB';
$return = 'IPV6-MIB'; } elsif ($info::METHOD eq IPV6MIB) {
} elsif ($info::METHOD eq CISCO) { $return = 'IPV6-MIB';
$return = 'CISCO-IETF-IP-MIB'; } elsif ($info::METHOD eq CISCO) {
} else { $return = 'CISCO-IETF-IP-MIB';
$return = 'none of the MIBs'; }
} }
return $return; return $return;
} }