a little undef checking gets rid of warnings

This commit is contained in:
Max Baker
2004-03-14 17:31:20 +00:00
parent 1278117b05
commit 6dd3f4b21a

View File

@@ -171,6 +171,8 @@ sub model {
my $model = &SNMP::translateObj($id); my $model = &SNMP::translateObj($id);
return $id unless defined $model;
$model =~ s/^cisco//i; $model =~ s/^cisco//i;
$model =~ s/^catalyst//; $model =~ s/^catalyst//;
$model =~ s/^cat//; $model =~ s/^cat//;