From 9e813784f76f341fc2ebfed549d20470b119d192 Mon Sep 17 00:00:00 2001 From: "Eric A. Miller" Date: Thu, 30 Oct 2014 23:38:39 -0400 Subject: [PATCH] Remove qb_fw_vlan() override from L2::HP as it should no longer be necessary. --- Info/Layer2/HP.pm | 30 ------------------------------ 1 file changed, 30 deletions(-) diff --git a/Info/Layer2/HP.pm b/Info/Layer2/HP.pm index 98a19e38..ae450067 100644 --- a/Info/Layer2/HP.pm +++ b/Info/Layer2/HP.pm @@ -536,30 +536,6 @@ sub set_i_vlan_tagged { sub agg_ports { return agg_ports_ifstack(@_) } -sub qb_fw_vlan { - my $hp = shift; - my $partial = shift; - my $qb_fw_vlan = $hp->SUPER::qb_fw_vlan($partial); - - my $fdb_to_dot1q = {}; - my $fdb_id = $hp->dot1qVlanFdbId(0); - foreach my $fdb_entry (keys %$fdb_id) { - my ($timemark, $vlan_id) = split(/\./, $fdb_entry); - $fdb_to_dot1q->{$fdb_id->{$fdb_entry}} = $vlan_id; - } - foreach my $learn (keys %$qb_fw_vlan) { - my $fdb_idx = $qb_fw_vlan->{$learn}; - if (exists $fdb_to_dot1q->{$fdb_idx}) { - $qb_fw_vlan->{$learn} = $fdb_to_dot1q->{$fdb_idx}; - } - } - - return $qb_fw_vlan; -} - - - - 1; __END__ @@ -827,12 +803,6 @@ Power supplied by PoE ports, in milliwatts Returns what version of STP the device is running. (C with fallback to inherited stp_ver()) -=item $hp->qb_fw_vlan() - -Returns reference to hash of forwarding table entries VLAN ID - -(C), (C) - =back =head2 Globals imported from SNMP::Info::Layer2