utf8 pragma

[migration-tools.git] / split_marc.pl

diff --git a/split_marc.pl b/split_marc.pl
index f98eada..c60aab4 100644 (file)
--- a/split_marc.pl
+++ b/split_marc.pl
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+use open ':utf8';
 use MARC::Batch;
 use MARC::Record;
 use MARC::File::XML ( BinaryEncoding => 'utf-8' );