From 64acc6180f3164f4a4b6132bf4334e1148f0cf44 Mon Sep 17 00:00:00 2001 From: Jason Etheridge Date: Thu, 11 Sep 2008 19:43:38 +0000 Subject: [PATCH] This hack dosn't play nice with the use MARC::File::XML ( BinaryEncoding => 'utf-8' ); hack --- fingerprinter | 5 +++-- 1 files changed, 3 insertions(+), 2 deletions(-) diff --git a/fingerprinter b/fingerprinter index ecc14aa..231a8b2 100755 --- a/fingerprinter +++ b/fingerprinter @@ -22,10 +22,11 @@ binmode(XF, ':utf8'); for my $file (@ARGV) { print XF "Processing $file\n"; - open my $records, '<:utf8', $file; + #open my $records, '<:utf8', $file; # This hack dosn't play nice with the use MARC::File::XML ( BinaryEncoding => 'utf-8' ); hack my $batch = undef; my $record = undef; - $batch = MARC::Batch->new('XML', $records); + #$batch = MARC::Batch->new('XML', $records); # The other part of the hack + $batch = MARC::Batch->new('XML', $file); $batch->strict_off(); $batch->warnings_off(); -- 1.7.2.5