Replace use vars with our

From the documentation for `vars`:

> NOTE: For use with variables in the current package for a single
> scope, the functionality provided by this pragma has been superseded
> by "our" declarations, available in Perl v5.6.0 or later, and use of
> this pragma is discouraged.
This commit is contained in:
Richard Hansen 2024-07-24 14:03:17 -04:00
parent 356c3354bd
commit 6ddecb4ecc

View file

@ -134,9 +134,8 @@ my $last_emailbody = '';
## flags and options to override).
my $daemon_default = ($programd =~ /d$/) ? interval('5m') : undef;
use vars qw($file $lineno);
local $file = '';
local $lineno = '';
our $file = '';
our $lineno = '';
$ENV{'PATH'} = (exists($ENV{PATH}) ? "$ENV{PATH}:" : "") . "/sbin:/usr/sbin:/bin:/usr/bin:/etc:/usr/lib:";