From 863b594ebe07983e713af6b0ebb6c0243972ff65 Mon Sep 17 00:00:00 2001
From: Graham Knop <haarg@haarg.org>
Date: Thu, 17 Oct 2024 23:36:07 +0200
Subject: [PATCH] don't use vars, use our
---
eg/L4pResurrectable.pm | 3 +--
lib/Log/Log4perl/Level.pm | 9 ++++-----
2 files changed, 5 insertions(+), 7 deletions(-)
diff --git a/eg/L4pResurrectable.pm b/eg/L4pResurrectable.pm
index fd527caa..57f0dbee 100644
--- a/eg/L4pResurrectable.pm
+++ b/eg/L4pResurrectable.pm
@@ -1,8 +1,7 @@
package L4pResurrectable;
use Log::Log4perl qw(:easy);
-use vars qw($VERSION);
-$VERSION = "0.01";
+our $VERSION = "0.01";
sub foo {
###l4p DEBUG "foo was here";
diff --git a/lib/Log/Log4perl/Level.pm b/lib/Log/Log4perl/Level.pm
index 00168ca0..917f3de1 100644
--- a/lib/Log/Log4perl/Level.pm
+++ b/lib/Log/Log4perl/Level.pm
@@ -20,12 +20,11 @@ use constant FATAL_INT => 50000;
use constant OFF_INT => (2 ** 31) - 1;
no strict qw(refs);
-use vars qw(%PRIORITY %LEVELS %SYSLOG %L4P_TO_LD);
-%PRIORITY = (); # unless (%PRIORITY);
-%LEVELS = () unless (%LEVELS);
-%SYSLOG = () unless (%SYSLOG);
-%L4P_TO_LD = () unless (%L4P_TO_LD);
+our %PRIORITY = (); # unless (%PRIORITY);
+our %LEVELS = () unless (%LEVELS);
+our %SYSLOG = () unless (%SYSLOG);
+our %L4P_TO_LD = () unless (%L4P_TO_LD);
sub add_priority {
my ($prio, $intval, $syslog, $log_dispatch_level) = @_;