From 3ff432034a0c3bb4a04c1424b38faf5da9f47f4b Mon Sep 17 00:00:00 2001
From: "Eric A. Miller" <emiller@cpan.org>
Date: Mon, 28 Jan 2013 20:15:36 -0500
Subject: [PATCH] Fix typos in i_vlan(), ignore VirtualRouter interfaces

---
 Info/Layer3/Extreme.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/Info/Layer3/Extreme.pm b/Info/Layer3/Extreme.pm
index cd01107f..b504765f 100644
--- a/Info/Layer3/Extreme.pm
+++ b/Info/Layer3/Extreme.pm
@@ -203,7 +203,7 @@ sub i_ignore {
     my %i_ignore;
     foreach my $if ( keys %$i_description ) {
         if ( $i_description->{$if}
-            =~ /^(802.1Q Encapsulation Tag \d+|VLAN \d+|lo\d+)/i )
+            =~ /^(802.1Q Encapsulation Tag \d+|VLAN \d+|lo\d+|VirtualRouter\d+)/i )
         {
             $i_ignore{$if}++;
         }
@@ -386,15 +386,15 @@ sub i_vlan {
 
     # Some devices support Q-Bridge, if so short circuit and return it
     my $q_bridge = $extreme->SUPER::i_vlan($partial);
-    return $q_bridge if (keys $q_bridge);
+    return $q_bridge if (keys %$q_bridge);
 
     # Next we try extremeVlanOpaqueTable
     my $xos = $extreme->xos_i_vlan($partial);
-    return $xos if (keys $xos);
+    return $xos if (keys %$xos);
     
     # Try older ifStack method
     my $extremeware = $extreme->extremeware_i_vlan($partial);
-    return $extremeware if (keys $extremeware);
+    return $extremeware if (keys %$extremeware);
     
     return;
 }