a little undef checking gets rid of warnings

2004-03-14 17:31:20 +00:00
parent 1278117b05
commit 6dd3f4b21a
1 changed files with 2 additions and 0 deletions
--- a/Info/Layer3.pm
+++ b/Info/Layer3.pm
@@ -171,6 +171,8 @@ sub model {
    
    my $model = &SNMP::translateObj($id);

+    return $id unless defined $model;
+
    $model =~ s/^cisco//i;
    $model =~ s/^catalyst//;
    $model =~ s/^cat//;