From 1ef93781311000589a4006f6ddab96335a4f46b8 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Wed, 9 Nov 2022 15:12:31 +0000 Subject: [PATCH] Bug 32151: Resolve uninitialized warn in numeric ne in C4::Ris Content-Type: text/plain; charset=utf-8 We should not write: if ($kwfield != undef) { Test plan: Pick record with UTF8 chars. Download via cart or shelf in RIS format. Check your logs. Signed-off-by: Marcel de Rooy --- C4/Ris.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C4/Ris.pm b/C4/Ris.pm index 9ab50d924b..6585ac4239 100644 --- a/C4/Ris.pm +++ b/C4/Ris.pm @@ -831,7 +831,7 @@ sub get_keywords { ## loop over all 6XX fields foreach my $kwfield (@keywords) { - if ($kwfield != undef) { + if( defined $kwfield ) { ## authornames get special treatment if ($fieldname eq "600") { my $val = normalize_author($kwfield->subfield('a'), $kwfield->subfield('b'), $kwfield->subfield('c'), $kwfield->indicator('1')); -- 2.30.2