From 7ee562c5ac28c821206c301b9b3c6cf984dd019a Mon Sep 17 00:00:00 2001
From: "Eric A. Miller" <emiller@cpan.org>
Date: Wed, 5 Nov 2014 22:58:35 -0500
Subject: [PATCH] i_vlan_membership_untagged() should return HoA

---
 Info/CiscoVTP.pm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/Info/CiscoVTP.pm b/Info/CiscoVTP.pm
index b2bc3a8f..390940c5 100644
--- a/Info/CiscoVTP.pm
+++ b/Info/CiscoVTP.pm
@@ -287,7 +287,14 @@ sub i_vlan_membership_untagged {
     my $vtp  = shift;
     my $partial = shift;
 
-    return $vtp->i_vlan($partial);
+    my $vlans = $vtp->i_vlan($partial);
+    my $i_vlan_membership = {};
+    foreach my $port (keys %$vlans) {
+        my $vlan = $vlans->{$port};
+        push( @{ $i_vlan_membership->{$port} }, $vlan );
+    }
+    
+    return $i_vlan_membership;
 }
 
 sub set_i_pvid {