i_vlan_membership_untagged() should return HoA

This commit is contained in:
Eric A. Miller
2014-11-05 22:58:35 -05:00
parent bdb719004d
commit 7ee562c5ac

View File

@@ -287,7 +287,14 @@ sub i_vlan_membership_untagged {
my $vtp = shift; my $vtp = shift;
my $partial = 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 { sub set_i_pvid {