[pve-devel] [PATCH v2 common] fix #1548: replace perl use vars with our

[Tim Marx]

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 at proxmox.com>
---
changes from v1:
* whitespace madness resolved

 src/PVE/AtomicFile.pm |  3 +--
 src/PVE/Exception.pm  |  6 ++----
 src/PVE/SafeSyslog.pm | 10 +++-------
 3 files changed, 6 insertions(+), 13 deletions(-)

diff --git a/src/PVE/AtomicFile.pm b/src/PVE/AtomicFile.pm
index b1889e8..2086c7a 100644
--- a/src/PVE/AtomicFile.pm
+++ b/src/PVE/AtomicFile.pm
@@ -3,9 +3,8 @@ package PVE::AtomicFile;
 use strict;
 use warnings;
 use IO::AtomicFile;
-use vars qw(@ISA);
 
- at ISA = qw(IO::AtomicFile);
+our @ISA = qw(IO::AtomicFile);
 
 sub new {
     my $class = shift;
diff --git a/src/PVE/Exception.pm b/src/PVE/Exception.pm
index fa6b73a..29fd94a 100644
--- a/src/PVE/Exception.pm
+++ b/src/PVE/Exception.pm
@@ -6,12 +6,9 @@ package PVE::Exception;
 
 use strict;
 use warnings;
-use vars qw(@ISA @EXPORT_OK);
-require Exporter;
 use Storable qw(dclone);       
 use HTTP::Status qw(:constants);
 
- at ISA = qw(Exporter);
 
 use overload '""' => sub {local $@; shift->stringify};
 use overload 'cmp' => sub {
@@ -20,7 +17,8 @@ use overload 'cmp' => sub {
     return "$a" cmp "$b"; # compare as string
 };
 
- at 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) = @_;
diff --git a/src/PVE/SafeSyslog.pm b/src/PVE/SafeSyslog.pm
index 63b37f8..c61e97a 100644
--- a/src/PVE/SafeSyslog.pm
+++ b/src/PVE/SafeSyslog.pm
@@ -5,16 +5,12 @@ use warnings;
 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;
-
- at ISA = qw(Exporter);
-
- at EXPORT = qw(syslog initlog);
+our @EXPORT = qw(syslog initlog);
 
 my $log_tag = "unknown";
  
-- 
2.11.0