From 128517fe66bd09f72ade74e81fcab3e71873fde8 Mon Sep 17 00:00:00 2001
From: Kyle Hall <kyle@bywatersolutions.com>
Date: Tue, 14 Mar 2023 12:32:22 -0400
Subject: [PATCH] Bug 3150: (QA follow-up) Remove unused variables

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
---
 Koha/Biblio.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Koha/Biblio.pm b/Koha/Biblio.pm
index f73fd7271c..8c453a83ef 100644
--- a/Koha/Biblio.pm
+++ b/Koha/Biblio.pm
@@ -1333,7 +1333,7 @@ Return host only
 sub get_marc_host_only {
     my ($self) = @_;
 
-    my ( $host, $relatedparts ) = $self->get_marc_host;
+    my ( $host ) = $self->get_marc_host;
 
     return $host;
 }
@@ -1349,7 +1349,7 @@ Return related parts only
 sub get_marc_relatedparts_only {
     my ($self) = @_;
 
-    my ( $host, $relatedparts ) = $self->get_marc_host;
+    my ( undef, $relatedparts ) = $self->get_marc_host;
 
     return $relatedparts;
 }
-- 
2.39.5