From 47032cbb4a17e5983f277513e448c9cc2bc63a78 Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Thu, 12 Apr 2012 15:47:23 +0100
Subject: [PATCH] [3502533] Layer2/Baystack interface indexes > 513 (Robert
 Nyqvist)

---
 ChangeLog               | 1 +
 Info/Layer2/Baystack.pm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 2b1e16f6..5188381f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -28,6 +28,7 @@ version 2.07 ()
     * [3136084] Rename Allied Telesyn to Allied Telesis (Oliver Gorwits)
     * [3268104] CiscoVTP.pm i_vlan_membership() array bounds (Michael Sanderson)
     * [3497004] Clarify POD description of default values (a2w)
+    * [3502533] Layer2/Baystack interface indexes > 513 (Robert Nyqvist)
 
 version 2.06 (2011-09-28)
 
diff --git a/Info/Layer2/Baystack.pm b/Info/Layer2/Baystack.pm
index 62937685..ea7e82af 100644
--- a/Info/Layer2/Baystack.pm
+++ b/Info/Layer2/Baystack.pm
@@ -162,7 +162,7 @@ sub interfaces {
         next unless defined $index;
 
         # Ignore cascade ports
-        next if $index > 513;
+        next if $index > $index_factor * 8;
 
         my $port = ( $index % $index_factor );
         my $slot = ( int( $index / $index_factor ) ) + $slot_offset;