From 37836bedac60fd49ebcfe802fe98226e21f0b6ad Mon Sep 17 00:00:00 2001
From: Max Baker <>
Date: Mon, 12 May 2003 21:20:48 +0000
Subject: [PATCH] minor undef warnings

---
 Info/Layer2/Bay.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Info/Layer2/Bay.pm b/Info/Layer2/Bay.pm
index c39cf6b0..0dc70eb8 100644
--- 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();