Description: Fix warning with Perl 5.42.
  Possible precedence problem between ! and string eq at /usr/share/perl5/DBIx/Recordset.pm line 3538.
Origin: vendor
Bug-Debian: https://bugs.debian.org/1113877
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2025-09-05
Forwarded: https://rt.cpan.org/Ticket/Display.html?id=169558
Bug: https://rt.cpan.org/Ticket/Display.html?id=169558

--- a/Recordset.pm
+++ b/Recordset.pm
@@ -3535,7 +3535,7 @@
 
     print DBIx::Recordset::LOG "DB:  ::Hash::STORE \{" . (defined ($key)?$key:'<undef>') . "\} = " . (defined ($value)?$value:'<undef>') . "\n" if ($rs->{'*Debug'} > 3) ;
 
-    $rs -> savecroak ("Hash::STORE need hashref as value") if (!ref ($value) eq 'HASH') ;
+    $rs -> savecroak ("Hash::STORE need hashref as value") if (ref ($value) ne 'HASH') ;
 
     #$rs -> savecroak ("Hash::STORE doesn't work with !PreFetch") if ($self -> {'*PreFetch'}) ;
     return if ($self -> {'*PreFetch'}) ;