minor undef warnings

2003-05-12 21:20:48 +00:00
parent a60663b238
commit 37836bedac
1 changed files with 2 additions and 0 deletions
--- a/Info/Layer2/Bay.pm
+++ b/Info/Layer2/Bay.pm
@@ -152,7 +152,9 @@ sub i_mac {
 sub model {
    my $bay = shift;
    my $id = $bay->id();
+    return undef unless defined $id;
    my $model = &SNMP::translateObj($id);
+    return $id unless defined $model;
    $model =~ s/^sreg-//i;

    my $descr = $bay->description();