From 0b83642cd901c2cddb056b0ce38685b2f7261c07 Mon Sep 17 00:00:00 2001 From: Jason Etheridge Date: Wed, 30 Jul 2008 23:54:30 +0000 Subject: [PATCH] utf8 pragma --- dump_inverse_select_marc.pl | 1 + select_marc.pl | 1 + spit_unicorn_marc_holdings.pl | 1 + trim_marc_based_on_tag_subfield_value.pl | 1 + 4 files changed, 4 insertions(+), 0 deletions(-) diff --git a/dump_inverse_select_marc.pl b/dump_inverse_select_marc.pl index dd3350e..666d567 100755 --- 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 --- 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 --- 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 --- 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; -- 1.7.2.5