From 342a45a42418d9390400fa3aa3c69ddc2d66b23d Mon Sep 17 00:00:00 2001
From: Max Baker <>
Date: Tue, 20 Jan 2004 16:39:23 +0000
Subject: [PATCH] added check for os() and descr() in model()

---
 Info/CiscoStats.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Info/CiscoStats.pm b/Info/CiscoStats.pm
index f18493c4..0caf0c4b 100644
--- a/Info/CiscoStats.pm
+++ b/Info/CiscoStats.pm
@@ -89,12 +89,12 @@ sub os_ver {
     my $descr = $l2->description();
     
     # Older Catalysts
-    if ($os eq 'catalyst' and $descr =~ m/V(\d{1}\.\d{2}\.\d{2})/){
+    if (defined $os and $os eq 'catalyst' and defined $descr and $descr =~ m/V(\d{1}\.\d{2}\.\d{2})/){
         return $1;
     }
-
+    
     # Newer Catalysts and IOS devices
-    if ($descr =~ m/Version (\d+\.\d+\([^)]+\)[^,\s]*)(,|\s)+/ ){
+    if (defined $descr and $descr =~ m/Version (\d+\.\d+\([^)]+\)[^,\s]*)(,|\s)+/ ){
         return $1;
     } 
     return undef;