Bug 40380: Remove warnings from Patrons/Import.t - Argument "" isn't numeric in numeric eq (==)

Using perl -MCarp::Always:
Argument "" isn't numeric in numeric eq (==) at /usr/share/perl5/DBIx/Class/Row.pm line 1017, <$handle_1> line 2.
DBIx::Class::Row::_eq_column_values(Koha::Schema::Result::Borrower=HASH(0x57c409b9ec08), "autorenew_checkouts", "", 1) called at /usr/share/perl5/DBIx/Class/Row.pm line 945

Signed-off-by: David Nind <david@davidnind.com>

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
(cherry picked from commit 3aa81fa654)
Signed-off-by: Paul Derscheid <paul.derscheid@lmscloud.de>
This commit is contained in:
Jonathan Druart 2025-07-15 13:48:43 +02:00 committed by Paul Derscheid
parent 88ae9b2c1f
commit dcc3748bdd
No known key found for this signature in database
GPG Key ID: C25F9FD44CED595B
2 changed files with 3 additions and 2 deletions

View File

@ -268,7 +268,7 @@ LINE: while ( my $borrowerline = <$handle> ) {
# Remove warning for int datatype that cannot be null
# Argument "" isn't numeric in numeric eq (==) at /usr/share/perl5/DBIx/Class/Row.pm line 1018
for my $field (
qw( privacy privacy_guarantor_fines privacy_guarantor_checkouts anonymized login_attempts checkprevcheckout)
qw( privacy privacy_guarantor_fines privacy_guarantor_checkouts anonymized login_attempts checkprevcheckout autorenew_checkouts )
)
{
delete $borrower{$field}

View File

@ -18,7 +18,8 @@
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
use Test::More tests => 180;
use Test::More tests => 181;
use Test::NoWarnings;
use Test::Warn;
use Test::Exception;
use Encode qw( encode_utf8 );