#297 perl 5.28 removal of "use vars"

This commit is contained in:
Oliver Gorwits
2019-04-20 10:20:10 +01:00
parent 9b1995e90f
commit 6b70ccfd79
131 changed files with 138 additions and 140 deletions

View File

@@ -37,7 +37,7 @@ use SNMP::Info::CDP;
@SNMP::Info::Layer2::3Com::ISA = qw/SNMP::Info::LLDP SNMP::Info::Layer2 Exporter/;
@SNMP::Info::Layer2::3Com::EXPORT_OK = qw//;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD/;
our ($VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD);
$VERSION = '3.66';

View File

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

View File

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

View File

@@ -38,7 +38,7 @@ use SNMP::Info::Airespace;
= qw/SNMP::Info::Airespace SNMP::Info::CDP SNMP::Info::Bridge Exporter/;
@SNMP::Info::Layer2::Airespace::EXPORT_OK = qw//;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
our ($VERSION %FUNCS %GLOBALS %MIBS %MUNGE);
$VERSION = '3.66';

View File

@@ -47,7 +47,7 @@ use SNMP::Info::IEEE802dot11;
SNMP::Info::CiscoStats SNMP::Info::CiscoConfig SNMP::Info::CDP Exporter/;
@SNMP::Info::Layer2::Aironet::EXPORT_OK = qw//;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
our ($VERSION %FUNCS %GLOBALS %MIBS %MUNGE);
$VERSION = '3.66';

View File

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

View File

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

View File

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

View File

@@ -46,7 +46,7 @@ use SNMP::Info::Layer2;
Exporter/;
@SNMP::Info::Layer2::C1900::EXPORT_OK = qw//;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
our ($VERSION %FUNCS %GLOBALS %MIBS %MUNGE);
$VERSION = '3.66';

View File

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

View File

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

View File

@@ -41,7 +41,7 @@ use SNMP::Info::SONMP;
= qw/SNMP::Info SNMP::Info::Bridge SNMP::Info::NortelStack SNMP::Info::SONMP Exporter/;
@SNMP::Info::Layer2::Centillion::EXPORT_OK = qw//;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
our ($VERSION %FUNCS %GLOBALS %MIBS %MUNGE);
$VERSION = '3.66';

View File

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

View File

@@ -47,7 +47,7 @@ use SNMP::Info::CDP;
SNMP::Info::CiscoStats SNMP::Info::CiscoConfig SNMP::Info::CDP Exporter/;
@SNMP::Info::Layer2::CiscoSB::EXPORT_OK = qw//;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
our ($VERSION %FUNCS %GLOBALS %MIBS %MUNGE);
$VERSION = '3.66';

View File

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

View File

@@ -48,7 +48,7 @@ use SNMP::Info::Aggregate 'agg_ports_ifstack';
/;
@SNMP::Info::Layer2::HP::EXPORT_OK = qw//;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %PORTSTAT %MODEL_MAP %MUNGE/;
our ($VERSION %GLOBALS %MIBS %FUNCS %PORTSTAT %MODEL_MAP %MUNGE);
$VERSION = '3.66';

View File

@@ -42,7 +42,7 @@ use SNMP::Info::CDP;
SNMP::Info::CDP Exporter/;
@SNMP::Info::Layer2::HP4000::EXPORT_OK = qw//;
use vars qw/$VERSION %GLOBALS %MIBS %FUNCS %PORTSTAT %MODEL_MAP %MUNGE/;
our ($VERSION %GLOBALS %MIBS %FUNCS %PORTSTAT %MODEL_MAP %MUNGE);
$VERSION = '3.66';

View File

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

View File

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

View File

@@ -41,7 +41,7 @@ use SNMP::Info::Airespace;
= qw/SNMP::Info SNMP::Info::Bridge SNMP::Info::SONMP SNMP::Info::Airespace Exporter/;
@SNMP::Info::Layer2::N2270::EXPORT_OK = qw//;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD $INIT $DEBUG/;
our ($VERSION %FUNCS %GLOBALS %MIBS %MUNGE $AUTOLOAD $INIT $DEBUG);
$VERSION = '3.66';

View File

@@ -40,7 +40,7 @@ use SNMP::Info::Layer2;
= qw/SNMP::Info::SONMP SNMP::Info::IEEE802dot11 SNMP::Info::Layer2 Exporter/;
@SNMP::Info::Layer2::NAP222x::EXPORT_OK = qw//;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
our ($VERSION %FUNCS %GLOBALS %MIBS %MUNGE);
$VERSION = '3.66';

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@@ -40,7 +40,7 @@ use SNMP::Info::Layer3; # only used in sub mac()
= qw/SNMP::Info::IEEE802dot11 SNMP::Info::Layer2 Exporter/;
@SNMP::Info::Layer2::Ubiquiti::EXPORT_OK = qw//;
use vars qw/$VERSION %FUNCS %GLOBALS %MIBS %MUNGE/;
our ($VERSION %FUNCS %GLOBALS %MIBS %MUNGE);
$VERSION = '3.66';

View File

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