i_vlan_membership_untagged() should return HoA

2014-11-05 22:58:35 -05:00
parent bdb719004d
commit 7ee562c5ac
1 changed files with 8 additions and 1 deletions
--- 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 {