135/snmp-info
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

minor undef warnings

Browse Source
This commit is contained in:
Max Baker
2003-05-12 21:20:48 +00:00
parent a60663b238
commit 37836bedac
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Info/Layer2/Bay.pm
View File

@@ -152,7 +152,9 @@ sub i_mac {
sub model { sub model {
my $bay = shift; my $bay = shift;
my $id = $bay->id(); my $id = $bay->id();
return undef unless defined $id;
my $model = &SNMP::translateObj($id); my $model = &SNMP::translateObj($id);
return $id unless defined $model;
$model =~ s/^sreg-//i; $model =~ s/^sreg-//i;
my $descr = $bay->description(); my $descr = $bay->description();