From 74e649a033edc18d60afa5afb7da00daac0ab9db Mon Sep 17 00:00:00 2001
From: Max Baker <>
Date: Tue, 20 Jan 2004 16:44:20 +0000
Subject: [PATCH] removed warning about non numeric port line 199

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

diff --git a/Info/Layer2/Bay.pm b/Info/Layer2/Bay.pm
index 49ec0aba..66fb2310 100644
--- a/Info/Layer2/Bay.pm
+++ b/Info/Layer2/Bay.pm
@@ -196,7 +196,7 @@ sub c_ip {
     foreach my $entry (keys %$bay_topo_ip){
         my $port = $bay_topo_port->{$entry};
         next unless defined $port;
-        next if $port == 0;
+        next if ($port =~ /^[\d\.]+$/ and $port == 0);
         my $ip   = $bay_topo_ip->{$entry};
         push(@{$ip_port{$port}},$ip);
     }