utf8 pragma

diff --git a/dump_inverse_select_marc.pl b/dump_inverse_select_marc.pl
index dd3350e..666d567 100755 (executable)
--- a/dump_inverse_select_marc.pl
+++ b/dump_inverse_select_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/select_marc.pl b/select_marc.pl
index 152bd1c..397f763 100755 (executable)
--- a/select_marc.pl
+++ b/select_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/spit_unicorn_marc_holdings.pl b/spit_unicorn_marc_holdings.pl
index a15dccc..a897e63 100755 (executable)
--- a/spit_unicorn_marc_holdings.pl
+++ b/spit_unicorn_marc_holdings.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/trim_marc_based_on_tag_subfield_value.pl b/trim_marc_based_on_tag_subfield_value.pl
index c8f1925..841676a 100755 (executable)
--- a/trim_marc_based_on_tag_subfield_value.pl
+++ b/trim_marc_based_on_tag_subfield_value.pl
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+use open ':utf8';
 use MARC::Batch;
 use MARC::File::XML ( BinaryEncoding => 'utf-8' );
 use MARC::Field;