File fix-perl-5.42-tests.patch of Package lcov

From a679e77bb3f069d4028d79475660fdb54c77d2ce Mon Sep 17 00:00:00 2001
From: Roman Beliaev <r.beliaev@ispras.ru>
Date: Thu, 31 Jul 2025 17:16:06 +0300
Subject: [PATCH] Bugfix: fix operator precedence issue causing warning in Perl
 5.42.0 (#424)

Signed-off-by: Roman Beliaev <r.beliaev@ispras.ru>
---
 lib/lcovutil.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/lcovutil.pm b/lib/lcovutil.pm
index e6b9cd6..bdf9c9a 100644
--- a/lib/lcovutil.pm
+++ b/lib/lcovutil.pm
@@ -2102,14 +2102,14 @@ sub update_state
     while (my ($f, $v) = each(%$updateVersionCache)) {
         lcovutil::ignorable_error($lcovutil::ERROR_INTERNAL,
                                   "unexpected version entry")
-            if exists($versionCache{$f}) && !$versionCache{$f} eq $v;
+            if exists($versionCache{$f}) && !($versionCache{$f} eq $v);
         $versionCache{$f} = $v;
     }
     my $updateResolveCache = shift;
     while (my ($f, $v) = each(%$updateResolveCache)) {
         lcovutil::ignorable_error($lcovutil::ERROR_INTERNAL,
                                   "unexpected resolve entry")
-            if exists($resolveCache{$f}) && !$resolveCache{$f} eq $v;
+            if exists($resolveCache{$f}) && !($resolveCache{$f} eq $v);
         $resolveCache{$f} = $v;
     }
     my $msgTypes = shift;