From c25a66d5d44afc1ef047ee96bc360467963ac2c5 Mon Sep 17 00:00:00 2001
From: Kyle M Hall <kyle@bywatersolutions.com>
Date: Wed, 17 Mar 2021 09:44:11 -0400
Subject: [PATCH] Bug 20817: Update module to use YAML::XS

---
 Koha/Acquisition/Utils.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/Koha/Acquisition/Utils.pm b/Koha/Acquisition/Utils.pm
index 5b754d1dd0..b78be6401f 100644
--- a/Koha/Acquisition/Utils.pm
+++ b/Koha/Acquisition/Utils.pm
@@ -17,6 +17,8 @@ package Koha::Acquisition::Utils;
 
 use Modern::Perl;
 
+use YAML::XS;
+
 use C4::Context;
 
 =head1 NAME
@@ -43,7 +45,7 @@ sub GetMarcFieldsToOrderValues {
     my $syspref = C4::Context->preference('MarcFieldsToOrder');
     $syspref = "$syspref\n\n"; # YAML is anal on ending \n. Surplus does not hurt
     my $yaml = eval {
-        YAML::Load($syspref);
+        YAML::XS::Load($syspref);
     };
     if ( $@ ) {
         warn "Unable to parse $syspref syspref : $@";
@@ -87,7 +89,7 @@ sub GetMarcItemFieldsToOrderValues {
     my $syspref = C4::Context->preference('MarcItemFieldsToOrder');
     $syspref = "$syspref\n\n"; # YAML is anal on ending \n. Surplus does not hurt
     my $yaml = eval {
-        YAML::Load($syspref);
+        YAML::XS::Load($syspref);
     };
     if ( $@ ) {
         warn "Unable to parse $syspref syspref : $@";
-- 
2.24.1 (Apple Git-126)