From 52ef01d52ff3bfc3384df93289de73acb87a755a Mon Sep 17 00:00:00 2001 From: Jason Etheridge Date: Fri, 26 Sep 2008 15:25:50 +0000 Subject: [PATCH] that marc batch utf8 hack doesn't play nice with the explicit MARC::File::XML utf8 load --- spit_csv.pl | 9 +++++---- 1 files changed, 5 insertions(+), 4 deletions(-) diff --git a/spit_csv.pl b/spit_csv.pl index fbf29e9..8a02003 100755 --- a/spit_csv.pl +++ b/spit_csv.pl @@ -1,7 +1,7 @@ #!/usr/bin/perl use MARC::Batch; use MARC::File::XML ( BinaryEncoding => 'utf-8' ); -use MARC::Field; +#use MARC::Field; use Unicode::Normalize; @@ -20,9 +20,10 @@ foreach my $argnum ( 0 .. 0 ) { print STDERR "Processing " . $ARGV[$argnum] . "\n"; - my $M; - open $M, '<:utf8', $ARGV[$argnum]; - my $batch = MARC::Batch->new('XML',$M); + #my $M; + #open $M, '<:utf8', $ARGV[$argnum]; + #my $batch = MARC::Batch->new('XML',$M); + my $batch = MARC::Batch->new('XML',$ARGV[$argnum]); $batch->strict_off(); $batch->warnings_off(); -- 1.7.2.5