allow translateObj() to fail by adding default return value. fix reported warnings
This commit is contained in:
@@ -77,7 +77,7 @@ use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %PORTSTAT %MUNGE $INIT/;
|
|||||||
sub model {
|
sub model {
|
||||||
my $l2 = shift;
|
my $l2 = shift;
|
||||||
my $id = $l2->id();
|
my $id = $l2->id();
|
||||||
my $model = &SNMP::translateObj($id);
|
my $model = &SNMP::translateObj($id) || $id || '';
|
||||||
|
|
||||||
# HP
|
# HP
|
||||||
$model =~ s/^hpswitch//i;
|
$model =~ s/^hpswitch//i;
|
||||||
|
|||||||
Reference in New Issue
Block a user