From 5849f4ce3d310695a8702231a171bfabfd061c0d Mon Sep 17 00:00:00 2001
From: Eric Miller <>
Date: Tue, 27 Nov 2007 17:19:28 +0000
Subject: [PATCH] Silence warnings from devices which don't return values for
 extended VLANs (>1024)

---
 Info/CiscoVTP.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/Info/CiscoVTP.pm b/Info/CiscoVTP.pm
index efce5a3f..a80e8534 100644
--- a/Info/CiscoVTP.pm
+++ b/Info/CiscoVTP.pm
@@ -237,8 +237,12 @@ sub i_vlan_membership {
         my $stat = $trunk_dyn_stat->{$port};
         if ( defined $stat and $stat =~ /^trunking/ ) {
             my $k = 0;
-            foreach my $list ("$ports_vlans->{$port}", "$ports_vlans_2k->{$port}",
-                          "$ports_vlans_3k->{$port}", "$ports_vlans_4k->{$port}") {
+            my $list1 = $ports_vlans->{$port} || 'unavail';
+            my $list2 = $ports_vlans_2k->{$port} || 'unavail';
+            my $list3 = $ports_vlans_3k->{$port} || 'unavail';
+            my $list4 = $ports_vlans_4k->{$port} || 'unavail';
+            foreach my $list ("$list1", "$list2", "$list3", "$list4") {
+                next if ($list eq 'unavail');
                 my $vlanlist = [split(//, unpack("B*", $list))];
                 my $offset = 1024 * $k;
                 foreach my $vlan (keys %oper_vlans) {