utf8 pragma

[migration-tools.git] / spot_check.pl

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