fix #1548: replace perl use vars with our

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

diff --git a/src/PVE/SafeSyslog.pm b/src/PVE/SafeSyslog.pm
index 63b37f84ba8120468b2c56e1b284b0ab3c981c19..c61e97ae9465edfcbb19b1394a0e1430b111bf92 100644 (file)
--- 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;
-
-@ISA = qw(Exporter);
-
-@EXPORT = qw(syslog initlog);
+our @EXPORT = qw(syslog initlog);
 
 my $log_tag = "unknown";