perl-LockFile-Simple/perl-LockFile-Simple-0.207-fix-deprecation-warning.patch

17 lines
632 B
Diff
Raw Normal View History

diff --git a/Simple.pm b/Simple.pm
index 74b4447..b19f20e 100644
--- a/Simple.pm
+++ b/Simple.pm
@@ -132,8 +132,8 @@ sub make {
$self->{'lock_by_file'} = {};
# The logxxx routines are autoloaded, so need to check for @EXPORT
- $self->{'wfunc'} = defined(@Log::Agent::EXPORT) ? \&logwarn : \&core_warn;
- $self->{'efunc'} = defined(@Log::Agent::EXPORT) ? \&logerr : \&core_warn;
+ $self->{'wfunc'} = @Log::Agent::EXPORT ? \&logwarn : \&core_warn;
+ $self->{'efunc'} = @Log::Agent::EXPORT ? \&logerr : \&core_warn;
$self->configure(@hlist); # Will init "manager" if necessary
return $self;
--
1.7.5.4