From c25a66d5d44afc1ef047ee96bc360467963ac2c5 Mon Sep 17 00:00:00 2001 From: Kyle M Hall 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)