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:
parent
356c3354bd
commit
6ddecb4ecc
1 changed files with 2 additions and 3 deletions
|
@ -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:";
|
||||
|
||||
|
|
Loading…
Reference in a new issue