fix #1548: replace perl use vars with our

[pve-common.git] / src / PVE / Exception.pm

diff --git a/src/PVE/Exception.pm b/src/PVE/Exception.pm
index fa6b73a22733ee56ddc110fa79a23857434265d6..29fd94afaf914bbbed949d27c03f1c3ac496084b 100644 (file)
--- 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);
 
-@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
 };
 
-@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) = @_;