got rid of some warnings for undef models

2004-10-28 21:37:36 +00:00
parent dceec4f537
commit d5afa9f592
1 changed files with 2 additions and 0 deletions
--- a/Info/Layer2/HP.pm
+++ b/Info/Layer2/HP.pm
@@ -157,7 +157,9 @@ sub os_ver {
 sub model {
    my $hp = shift;
    my $id = $hp->id();
+    return undef unless defined $id;
    my $model = &SNMP::translateObj($id);
+    return $id unless defined $model;
    
    $model =~ s/^hpswitch//i;