From 796935876522db6d3a02d2907b07c0d920455d80 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Joonas=20Kylm=C3=A4l=C3=A4?= <joonas.kylmala@helsinki.fi>
Date: Mon, 8 Jun 2020 15:12:52 +0300
Subject: [PATCH] Bug 11175: (follow-up) Don't return explicitly undef

This would create in list context an list of one element that is
undef, which we don't want, we want empty list if there are no
components.

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
Signed-off-by: Pasi Kallinen <pasi.kallinen@koha-suomi.fi>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Andrew Nugged <nugged@gmail.com>

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
---
 Koha/Biblio.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Koha/Biblio.pm b/Koha/Biblio.pm
index ea26ee725b..2d35c94734 100644
--- a/Koha/Biblio.pm
+++ b/Koha/Biblio.pm
@@ -490,7 +490,7 @@ this object (MARC21 773$w points to this)
 sub components {
     my ($self) = @_;
 
-    return undef if (C4::Context->preference('marcflavour') ne 'MARC21');
+    return if (C4::Context->preference('marcflavour') ne 'MARC21');
 
     if (!defined($self->{_components})) {
         my $marc = C4::Biblio::GetMarcBiblio({ biblionumber => $self->id });
-- 
2.39.5