1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
Description: Fix warning with Perl 5.42
Possible precedence problem between ! and string eq at /usr/share/perl5/File/Flock/Forking.pm line 14.
Origin: vendor
Bug-Debian: https://bugs.debian.org/1113876
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2025-09-03
Forwarded: https://rt.cpan.org/Ticket/Display.html?id=169511
Bug: https://rt.cpan.org/Ticket/Display.html?id=169511
--- a/lib/File/Flock/Forking.pm
+++ b/lib/File/Flock/Forking.pm
@@ -10,7 +10,7 @@
die "Import File::Flock::Forking before importing File::Flock"
if defined $File::Flock::VERSION;
-if ((!$Config{d_flock} && ! ($ENV{FLOCK_FORKING_USE} || '') eq 'flock')
+if ((!$Config{d_flock} && ($ENV{FLOCK_FORKING_USE} || '') ne 'flock')
|| (($ENV{FLOCK_FORKING_USE} || '') eq 'subprocess'))
{
$File::Flock::Forking::SubprocessEnabled = 1;
|
