From 799a06b63add8e53772a9b32ff6fcc2151da46e9 Mon Sep 17 00:00:00 2001
From: Eric Miller <>
Date: Sat, 8 Jul 2006 01:25:40 +0000
Subject: [PATCH] prep 1.04, capture older versions of BayRS

---
 Info.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Info.pm b/Info.pm
index e89bdf9a..dcff5f29 100644
--- a/Info.pm
+++ b/Info.pm
@@ -9,7 +9,7 @@
 # $Id$
 
 package SNMP::Info;
-$VERSION = '1.03';
+$VERSION = '1.04';
 use strict;
 
 use Exporter;
@@ -891,7 +891,7 @@ sub device_type {
         # Nortel Contivity
         $objtype = 'SNMP::Info::Layer3::Contivity' if $desc =~ /\bCES\b/;
         # Nortel BayRS
-        $objtype = 'SNMP::Info::Layer3::BayRS'   if $desc =~ /^\s*Image:\s+rel\//;
+        $objtype = 'SNMP::Info::Layer3::BayRS'   if $desc =~ /^\s*Image:\s+re[lv]\/(\d+\.){1,3}\d+\//;
 
         # Allied Telesyn Layer2 managed switches. They report they have L3 support
         $objtype = 'SNMP::Info::Layer2::Allied' if ($desc =~ /Allied.*AT-80\d{2}\S*/i);