Bug 27673: Replace YAML with YAML::XS

[koha-ffzg.git] / C4 / Ris.pm

diff --git a/C4/Ris.pm b/C4/Ris.pm
index de8dccc..3b39e96 100644 (file)
--- a/C4/Ris.pm
+++ b/C4/Ris.pm
@@ -63,6 +63,7 @@ package C4::Ris;
 use Modern::Perl;
 
 use List::MoreUtils qw/uniq/;
+use YAML::XS;
 use vars qw(@ISA @EXPORT);
 
 use Koha::SimpleMARC qw(read_field);
@@ -119,7 +120,7 @@ sub marc2ris {
     my $ris_additional_fields;
     if ($RisExportAdditionalFields) {
         $RisExportAdditionalFields = "$RisExportAdditionalFields\n\n";
-        $ris_additional_fields = eval { YAML::Load($RisExportAdditionalFields); };
+        $ris_additional_fields = eval { YAML::XS::Load($RisExportAdditionalFields); };
         if ($@) {
             warn "Unable to parse RisExportAdditionalFields : $@";
             $ris_additional_fields = undef;