From 2dddbb4d147a6ebdd7fc949808469c18dc35b10e Mon Sep 17 00:00:00 2001
From: David Gustafsson <david.gustafsson@ub.gu.se>
Date: Mon, 4 Apr 2022 16:41:00 +0200
Subject: [PATCH] Bug 29440: Fix QA-tool issues
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Signed-off-by: Michał Kula <148193449+mkibp@users.noreply.github.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
---
 misc/migration_tools/bulkmarcimport.pl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/misc/migration_tools/bulkmarcimport.pl b/misc/migration_tools/bulkmarcimport.pl
index 627720cee4..b9e961c911 100755
--- a/misc/migration_tools/bulkmarcimport.pl
+++ b/misc/migration_tools/bulkmarcimport.pl
@@ -526,7 +526,7 @@ RECORD: foreach my $record (@{$marc_records}) {
                         next RECORD;
                     }
                     elsif (!$success) {
-                        warn "ERROR: Update biblio $matched_record_id failed for unkown reason";
+                        warn "ERROR: Update biblio $matched_record_id failed for unknown reason";
                         printlog( { id => $matched_record_id, op => "update", status => "ERROR" } ) if ($logfile);
                         next RECORD;
                     }
@@ -713,7 +713,6 @@ sub GetRecordId {
             return $marcrecord->subfield($tag, $subfield);
         }
     }
-    return undef;
 }
 sub build_query {
     my ($match, $record) = @_;
-- 
2.39.5