From bcb983cb5d01405e482b2a218d54130163c15ad7 Mon Sep 17 00:00:00 2001
From: Julian Maurice <julian.maurice@biblibre.com>
Date: Fri, 5 Apr 2024 14:08:31 +0200
Subject: [PATCH] Bug 35959: Fix C3 merge of
 Koha::Biblio::Metadata::Extractor::MARC::*

Test plan:

Run the following commands:

  perl -c Koha/Biblio/Metadata/Extractor/MARC/MARC21.pm
  perl -c Koha/Biblio/Metadata/Extractor/MARC/UNIMARC.pm

They should all print 'syntax OK'

Signed-off-by: David Nind <david@davidnind.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
---
 Koha/Biblio/Metadata/Extractor/MARC.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/Koha/Biblio/Metadata/Extractor/MARC.pm b/Koha/Biblio/Metadata/Extractor/MARC.pm
index bf030f601b4..ceaabf2aa19 100644
--- a/Koha/Biblio/Metadata/Extractor/MARC.pm
+++ b/Koha/Biblio/Metadata/Extractor/MARC.pm
@@ -27,9 +27,6 @@ use Modern::Perl;
 
 use Koha::Exceptions;
 
-use Koha::Biblio::Metadata::Extractor::MARC::MARC21;
-use Koha::Biblio::Metadata::Extractor::MARC::UNIMARC;
-
 =head1 API
 
 =head2 Class methods
@@ -58,6 +55,8 @@ sub new {
         unless $valid_schemas->{$schema};
 
     my $sub_class = "Koha::Biblio::Metadata::Extractor::MARC::$schema";
+    require "Koha/Biblio/Metadata/Extractor/MARC/$schema.pm";
+
     return $sub_class->new($params);
 }
 
-- 
2.45.2