utf8 pragma

diff --git a/fingerprints.pl b/fingerprints.pl
index 223bae8..ff2d1a9 100755 (executable)
--- a/fingerprints.pl
+++ b/fingerprints.pl
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+use open ':utf8';
 use MARC::Batch;
 use MARC::File::XML ( BinaryEncoding => 'utf-8' );
 use MARC::Field;

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' );

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' );