replace deprecated 'use vars qw($frob @mung %seen);' with the now in favor
'our $foo;' declaration
see NOTE at: http://perldoc.perl.org/vars.html
Signed-off-by: Tim Marx <t.marx@proxmox.com>
use strict;
use warnings;
use IO::AtomicFile;
-use vars qw(@ISA);
-@ISA = qw(IO::AtomicFile);
+our @ISA = qw(IO::AtomicFile);
sub new {
my $class = shift;
use strict;
use warnings;
-use vars qw(@ISA @EXPORT_OK);
-require Exporter;
use Storable qw(dclone);
use HTTP::Status qw(:constants);
-@ISA = qw(Exporter);
use overload '""' => sub {local $@; shift->stringify};
use overload 'cmp' => sub {
return "$a" cmp "$b"; # compare as string
};
-@EXPORT_OK = qw(raise raise_param_exc raise_perm_exc);
+use base 'Exporter';
+our @EXPORT_OK = qw(raise raise_param_exc raise_perm_exc);
sub new {
my ($class, $msg, %param) = @_;
use File::Basename;
use Sys::Syslog ();
use Encode;
+use base 'Exporter';
-use vars qw($VERSION @ISA @EXPORT);
+our $VERSION = '1.00';
-$VERSION = '1.00';
-require Exporter;
-
-@ISA = qw(Exporter);
-
-@EXPORT = qw(syslog initlog);
+our @EXPORT = qw(syslog initlog);
my $log_tag = "unknown";