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/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'}) ;
|
