Always use BinaryEncodeing => "UTF-8" with MARC::File::XML

[evergreen-equinox.git] / Open-ILS / src / perlmods / lib / OpenILS / Application / Acq / Picklist.pm

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Picklist.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Picklist.pm
index 3780d93..eee578f 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Picklist.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Picklist.pm
@@ -13,7 +13,7 @@ use OpenILS::Application::AppUtils;
 use OpenSRF::Utils::Cache;
 use MARC::Record;
 use MARC::Batch;
-use MARC::File::XML;
+use MARC::File::XML (BinaryEncoding => 'UTF-8');
 use MIME::Base64;
 use Digest::MD5 qw/md5_hex/;
 use OpenILS::Application::Acq::Financials;