allow translateObj() to fail by adding default return value. fix reported warnings

This commit is contained in:
Max Baker
2006-10-18 16:52:33 +00:00
parent 8b0239fdde
commit 7aede0a35e

View File

@@ -77,7 +77,7 @@ use vars qw/$VERSION $DEBUG %GLOBALS %MIBS %FUNCS %PORTSTAT %MUNGE $INIT/;
sub model {
my $l2 = shift;
my $id = $l2->id();
my $model = &SNMP::translateObj($id);
my $model = &SNMP::translateObj($id) || $id || '';
# HP
$model =~ s/^hpswitch//i;