#297 perl 5.28 removal of "use vars"

also adds pod for Layer3::DLink::interfaces
This commit is contained in:
Oliver Gorwits
2019-04-20 10:32:17 +01:00
parent 6b70ccfd79
commit 77fa064db5
130 changed files with 143 additions and 138 deletions

View File

@@ -39,7 +39,7 @@ use SNMP::Info::Layer3;
@SNMP::Info::Layer3::Aironet::ISA = qw/SNMP::Info::Layer3 Exporter/;
@SNMP::Info::Layer3::Aironet::EXPORT_OK = qw//;
our ($VERSION %MIBS %FUNCS %GLOBALS %MUNGE);
our ($VERSION, %MIBS, %FUNCS, %GLOBALS, %MUNGE);
$VERSION = '3.66';

View File

@@ -47,7 +47,7 @@ use SNMP::Info::LLDP;
SNMP::Info::MAU SNMP::Info::Layer3 Exporter/;
@SNMP::Info::Layer3::AlcatelLucent::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
$VERSION = '3.66';

View File

@@ -37,7 +37,7 @@ use SNMP::Info::Layer3;
@SNMP::Info::Layer3::AlteonAD::ISA = qw/SNMP::Info::Layer3 Exporter/;
@SNMP::Info::Layer3::AlteonAD::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %FUNCS %MIBS %MUNGE);
our ($VERSION, %GLOBALS, %FUNCS, %MIBS, %MUNGE);
$VERSION = '3.66';

View File

@@ -37,8 +37,8 @@ use SNMP::Info::Layer3;
@SNMP::Info::Layer3::Altiga::ISA = qw/SNMP::Info::Layer3 Exporter/;
@SNMP::Info::Layer3::Altiga::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE
$int_include_vpn $fake_idx $type_class/;
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE,
$int_include_vpn, $fake_idx, $type_class);
$VERSION = '3.66';

View File

@@ -46,7 +46,7 @@ use SNMP::Info::Aggregate 'agg_ports_ifstack';
/;
@SNMP::Info::Layer3::Arista::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
$VERSION = '3.66';

View File

@@ -38,7 +38,7 @@ use SNMP::Info::LLDP;
@SNMP::Info::Layer3::Aruba::ISA = qw/SNMP::Info::LLDP SNMP::Info::Layer3 Exporter/;
@SNMP::Info::Layer3::Aruba::EXPORT_OK = qw//;
our ($VERSION %FUNCS %GLOBALS %MIBS %MUNGE);
our ($VERSION, %FUNCS, %GLOBALS, %MIBS, %MUNGE);
$VERSION = '3.66';

View File

@@ -40,8 +40,8 @@ use SNMP::Info::Bridge;
SNMP::Info::Bridge Exporter/;
@SNMP::Info::Layer3::BayRS::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %FUNCS %MIBS %MUNGE %MODEL_MAP
%MODID_MAP %PROCID_MAP);
our ($VERSION, %GLOBALS, %FUNCS, %MIBS, %MUNGE, %MODEL_MAP,
%MODID_MAP, %PROCID_MAP);
$VERSION = '3.66';

View File

@@ -34,7 +34,7 @@ use SNMP::Info::Layer3;
@SNMP::Info::Layer3::BlueCoatSG::ISA = qw/SNMP::Info::Layer3 Exporter/;
@SNMP::Info::Layer3::BlueCoatSG::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
$VERSION = '3.66';

View File

@@ -37,7 +37,7 @@ use Exporter;
use SNMP::Info::CiscoStack;
use SNMP::Info::Layer3::CiscoSwitch;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
# NOTE : Top-most items gets precedence for @ISA
@SNMP::Info::Layer3::C3550::ISA = qw/

View File

@@ -42,7 +42,7 @@ use SNMP::Info::MAU;
Exporter/;
@SNMP::Info::Layer3::C4000::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
$VERSION = '3.66';

View File

@@ -37,7 +37,7 @@ use SNMP::Info::CiscoStack;
use SNMP::Info::Layer3::CiscoSwitch;
use SNMP::Info::MAU;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
# NOTE : Top-most items gets precedence for @ISA
@SNMP::Info::Layer3::C6500::ISA = qw/
@@ -49,8 +49,6 @@ our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
@SNMP::Info::Layer3::C6500::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
$VERSION = '3.66';
# NOTE: Order creates precedence

View File

@@ -38,7 +38,7 @@ use SNMP::Info::LLDP;
@SNMP::Info::Layer3::CheckPoint::ISA = qw/SNMP::Info::LLDP SNMP::Info::Layer3 Exporter/;
@SNMP::Info::Layer3::CheckPoint::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
$VERSION = '3.66';

View File

@@ -53,7 +53,7 @@ use SNMP::Info::Layer3;
Exporter/;
@SNMP::Info::Layer3::Cisco::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
$VERSION = '3.66';

View File

@@ -43,7 +43,7 @@ use SNMP::Info::Layer3;
Exporter/;
@SNMP::Info::Layer3::CiscoASA::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
$VERSION = '3.66';

View File

@@ -41,7 +41,7 @@ use SNMP::Info::Layer3;
Exporter/;
@SNMP::Info::Layer3::CiscoFWSM::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
$VERSION = '3.66';

View File

@@ -37,7 +37,7 @@ use SNMP::Info::CiscoAgg;
use SNMP::Info::CiscoPortSecurity;
use SNMP::Info::Layer3::Cisco;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
@SNMP::Info::Layer3::CiscoSwitch::ISA = qw/
SNMP::Info::CiscoAgg
@@ -48,8 +48,6 @@ our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
@SNMP::Info::Layer3::CiscoSwitch::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
$VERSION = '3.66';
%MIBS = (

View File

@@ -40,7 +40,7 @@ use SNMP::Info::Entity;
= qw/SNMP::Info SNMP::Info::Layer3 SNMP::Info::Entity Exporter/;
@SNMP::Info::Layer3::Contivity::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %FUNCS %MIBS %MUNGE);
our ($VERSION, %GLOBALS, %FUNCS, %MIBS, %MUNGE);
$VERSION = '3.66';

View File

@@ -44,7 +44,7 @@ use SNMP::Info::IEEE802dot3ad 'agg_ports_lag';
/;
@SNMP::Info::Layer3::Cumulus::EXPORT_OK = qw/ agg_ports /;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
$VERSION = '3.66';

View File

@@ -36,7 +36,7 @@ use SNMP::Info::LLDP;
@SNMP::Info::Layer3::DLink::ISA = qw/SNMP::Info::LLDP SNMP::Info::Layer3 Exporter/;
@SNMP::Info::Layer3::DLink::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %FUNCS %MIBS %MUNGE);
our ($VERSION, %GLOBALS, %FUNCS, %MIBS, %MUNGE);
$VERSION = '3.66';
@@ -247,6 +247,17 @@ See documentation in L<SNMP::Info::LLDP/"GLOBALS"> for details.
=head1 TABLE METHODS
These are methods that return tables of information in the form of a reference
to a hash.
=over
=item $dlink->interfaces();
Returns the map between SNMP Interface Identifier (iid) and C<ifName>.
=back
=head2 Table Methods imported from SNMP::Info::Layer3
See documentation in L<SNMP::Info::Layer3/"TABLE METHODS"> for details.

View File

@@ -38,7 +38,7 @@ use SNMP::Info::LLDP;
@SNMP::Info::Layer3::Dell::ISA = qw/SNMP::Info::LLDP SNMP::Info::Layer3 Exporter/;
@SNMP::Info::Layer3::Dell::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %FUNCS %MIBS %MUNGE);
our ($VERSION, %GLOBALS, %FUNCS, %MIBS, %MUNGE);
$VERSION = '3.66';

View File

@@ -39,7 +39,7 @@ use SNMP::Info::Layer3;
/;
@SNMP::Info::Layer3::ERX::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
$VERSION = '3.66';

View File

@@ -42,7 +42,7 @@ use SNMP::Info::Layer3;
Exporter/;
@SNMP::Info::Layer3::Enterasys::EXPORT_OK = qw//;
our ($VERSION $DEBUG %GLOBALS %FUNCS $INIT %MIBS %MUNGE);
our ($VERSION, $DEBUG, %GLOBALS, %FUNCS, $INIT, %MIBS, %MUNGE);
$VERSION = '3.66';

View File

@@ -44,7 +44,7 @@ use SNMP::Info::EDP;
SNMP::Info::EDP Exporter/;
@SNMP::Info::Layer3::Extreme::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %FUNCS %MIBS %MUNGE);
our ($VERSION, %GLOBALS, %FUNCS, %MIBS, %MUNGE);
$VERSION = '3.66';

View File

@@ -36,7 +36,7 @@ use SNMP::Info::Layer3;
@SNMP::Info::Layer3::F5::ISA = qw/SNMP::Info::Layer3 Exporter/;
@SNMP::Info::Layer3::F5::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %FUNCS %MIBS %MUNGE);
our ($VERSION, %GLOBALS, %FUNCS, %MIBS, %MUNGE);
$VERSION = '3.66';

View File

@@ -41,7 +41,7 @@ use SNMP::Info::LLDP;
SNMP::Info::Layer3 Exporter/;
@SNMP::Info::Layer3::Force10::EXPORT_OK = qw//;
our ($VERSION $DEBUG %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, $DEBUG, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
$VERSION = '3.66';

View File

@@ -37,7 +37,7 @@ use SNMP::Info::Layer3;
= qw/SNMP::Info::Layer3 Exporter/;
@SNMP::Info::Layer3::Fortinet::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %FUNCS %MIBS %MUNGE);
our ($VERSION, %GLOBALS, %FUNCS, %MIBS, %MUNGE);
$VERSION = '3.66';

View File

@@ -46,7 +46,7 @@ use SNMP::Info::LLDP;
/;
@SNMP::Info::Layer3::Foundry::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %FUNCS %MIBS %MUNGE);
our ($VERSION, %GLOBALS, %FUNCS, %MIBS, %MUNGE);
$VERSION = '3.66';

View File

@@ -35,7 +35,7 @@ use SNMP::Info::Layer3;
@SNMP::Info::Layer3::Genua::ISA = qw/SNMP::Info::Layer3/;
@SNMP::Info::Layer3::Genua::EXPORT_OK = qw//;
our ($VERSION %FUNCS %GLOBALS %MIBS %MUNGE);
our ($VERSION, %FUNCS, %GLOBALS, %MIBS, %MUNGE);
$VERSION = '3.66';

View File

@@ -45,7 +45,7 @@ use SNMP::Info::IEEE802dot3ad 'agg_ports_lag';
agg_ports
/;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
$VERSION = '3.66';

View File

@@ -40,7 +40,7 @@ use SNMP::Info::LLDP;
SNMP::Info::Layer3 Exporter/;
@SNMP::Info::Layer3::HP9300::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %FUNCS %MIBS %MUNGE);
our ($VERSION, %GLOBALS, %FUNCS, %MIBS, %MUNGE);
$VERSION = '3.66';

View File

@@ -41,7 +41,7 @@ use SNMP::Info::IEEE802dot3ad;
/;
@SNMP::Info::Layer3::Huawei::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
$VERSION = '3.66';

View File

@@ -39,7 +39,7 @@ use SNMP::Info::LLDP;
= qw/SNMP::Info::LLDP SNMP::Info::Layer3 Exporter/;
@SNMP::Info::Layer3::IBMGbTor::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %FUNCS %MIBS %MUNGE);
our ($VERSION, %GLOBALS, %FUNCS, %MIBS, %MUNGE);
$VERSION = '3.66';

View File

@@ -38,7 +38,7 @@ use SNMP::Info::LLDP;
@SNMP::Info::Layer3::Juniper::ISA = qw/SNMP::Info::Layer3 SNMP::Info::LLDP Exporter/;
@SNMP::Info::Layer3::Juniper::EXPORT_OK = qw//;
our ($VERSION $DEBUG %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, $DEBUG, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
$VERSION = '3.66';

View File

@@ -39,7 +39,7 @@ use SNMP::Info::Layer3;
/;
@SNMP::Info::Layer3::Lantronix::EXPORT_OK = qw//;
our ($VERSION %FUNCS %GLOBALS %MIBS %MUNGE);
our ($VERSION, %FUNCS, %GLOBALS, %MIBS, %MUNGE);
$VERSION = '3.66';

View File

@@ -49,7 +49,7 @@ use SNMP::Info::IEEE802dot3ad;
/;
@SNMP::Info::Layer3::Lenovo::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
$VERSION = '3.66';

View File

@@ -37,7 +37,7 @@ use SNMP::Info::Layer3;
@SNMP::Info::Layer3::Microsoft::ISA = qw/SNMP::Info::Layer3 Exporter/;
@SNMP::Info::Layer3::Microsoft::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
$VERSION = '3.66';

View File

@@ -37,7 +37,7 @@ use SNMP::Info::Layer3;
@SNMP::Info::Layer3::Mikrotik::ISA = qw/SNMP::Info::Layer3 Exporter/;
@SNMP::Info::Layer3::Mikrotik::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
$VERSION = '3.66';

View File

@@ -39,7 +39,7 @@ use SNMP::Info::SONMP;
= qw/SNMP::Info::Layer3 SNMP::Info::SONMP Exporter/;
@SNMP::Info::Layer3::N1600::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %FUNCS %MIBS %MUNGE);
our ($VERSION, %GLOBALS, %FUNCS, %MIBS, %MUNGE);
$VERSION = '3.66';

View File

@@ -38,7 +38,7 @@ use SNMP::Info::LLDP;
@SNMP::Info::Layer3::NetSNMP::ISA = qw/SNMP::Info::LLDP SNMP::Info::Layer3 Exporter/;
@SNMP::Info::Layer3::NetSNMP::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
$VERSION = '3.66';

View File

@@ -38,7 +38,7 @@ use SNMP::Info::IEEE802dot11;
= qw/SNMP::Info::Layer3 SNMP::Info::IEEE802dot11 Exporter/;
@SNMP::Info::Layer3::Netscreen::EXPORT_OK = qw//;
our ($VERSION %FUNCS %GLOBALS %MIBS %MUNGE);
our ($VERSION, %FUNCS, %GLOBALS, %MIBS, %MUNGE);
$VERSION = '3.66';

View File

@@ -34,7 +34,7 @@ use warnings;
use Exporter;
use SNMP::Info::Layer3::CiscoSwitch;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
# NOTE : Top-most items gets precedence for @ISA
@SNMP::Info::Layer3::Nexus::ISA = qw/
@@ -44,8 +44,6 @@ our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
@SNMP::Info::Layer3::Nexus::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
$VERSION = '3.66';
# NOTE: Order creates precedence

View File

@@ -39,7 +39,7 @@ use SNMP::Info::Layer3;
/;
@SNMP::Info::Layer3::OneAccess::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
$VERSION = '3.66';

View File

@@ -37,7 +37,7 @@ use SNMP::Info::Layer3;
@SNMP::Info::Layer3::PacketFront::ISA = qw/SNMP::Info::Layer3 Exporter/;
@SNMP::Info::Layer3::PacketFront::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
$VERSION = '3.66';

View File

@@ -36,7 +36,7 @@ use SNMP::Info::Layer3;
@SNMP::Info::Layer3::PaloAlto::ISA = qw/SNMP::Info::Layer3 Exporter/;
@SNMP::Info::Layer3::PaloAlto::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
$VERSION = '3.66';

View File

@@ -41,7 +41,7 @@ use SNMP::Info::Layer3;
SNMP::Info::Layer3 Exporter/;
@SNMP::Info::Layer3::Passport::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %FUNCS %MIBS %MUNGE);
our ($VERSION, %GLOBALS, %FUNCS, %MIBS, %MUNGE);
$VERSION = '3.66';

View File

@@ -39,7 +39,7 @@ use SNMP::Info::LLDP;
@SNMP::Info::Layer3::Pf::ISA = qw/SNMP::Info::LLDP SNMP::Info::Layer3 Exporter/;
@SNMP::Info::Layer3::Pf::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
$VERSION = '3.66';

View File

@@ -37,7 +37,7 @@ use SNMP::Info::LLDP;
@SNMP::Info::Layer3::Pica8::ISA = qw/SNMP::Info::LLDP SNMP::Info::Layer3 Exporter/;
@SNMP::Info::Layer3::Pica8::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
$VERSION = '3.66';

View File

@@ -34,7 +34,7 @@ use SNMP::Info::Layer3;
@SNMP::Info::Layer3::SonicWALL::ISA = qw/SNMP::Info::Layer3 Exporter/;
@SNMP::Info::Layer3::SonicWALL::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
$VERSION = '3.66';

View File

@@ -37,7 +37,7 @@ use SNMP::Info::Layer3;
= qw/SNMP::Info::Layer3 Exporter/;
@SNMP::Info::Layer3::Steelhead::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %FUNCS %MIBS %MUNGE);
our ($VERSION, %GLOBALS, %FUNCS, %MIBS, %MUNGE);
$VERSION = '3.66';

View File

@@ -37,7 +37,7 @@ use SNMP::Info::Layer3;
@SNMP::Info::Layer3::Sun::ISA = qw/SNMP::Info::Layer3 Exporter/;
@SNMP::Info::Layer3::Sun::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
$VERSION = '3.66';

View File

@@ -40,7 +40,7 @@ use SNMP::Info::MAU;
SNMP::Info::Layer3 Exporter/;
@SNMP::Info::Layer3::Tasman::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
$VERSION = '3.66';

View File

@@ -40,7 +40,7 @@ use SNMP::Info::Aggregate;
Exporter/;
@SNMP::Info::Layer3::Timetra::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
$VERSION = '3.66';

View File

@@ -37,7 +37,7 @@ use SNMP::Info::IEEE802dot3ad 'agg_ports_lag';
@SNMP::Info::Layer3::VMware::ISA = qw/SNMP::Info::IEEE802dot3ad SNMP::Info::Layer3 Exporter/;
@SNMP::Info::Layer3::VMware::EXPORT_OK = qw/agg_ports/;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
$VERSION = '3.66';

View File

@@ -37,7 +37,7 @@ use SNMP::Info::Layer3;
@SNMP::Info::Layer3::VyOS::ISA = qw/SNMP::Info::Layer3 Exporter/;
@SNMP::Info::Layer3::VyOS::EXPORT_OK = qw//;
our ($VERSION %GLOBALS %MIBS %FUNCS %MUNGE);
our ($VERSION, %GLOBALS, %MIBS, %FUNCS, %MUNGE);
$VERSION = '3.66';