From 5b73b8b71641c55e829c0bdcd82cd7f03a88405f Mon Sep 17 00:00:00 2001
From: Shawn Boyette <sboyette@esilibrary.com>
Date: Thu, 11 Sep 2008 19:02:29 +0000
Subject: [PATCH 1/1] do something useful (log) when the eval block horks

---
 fingerprinter |    2 ++
 1 files changed, 2 insertions(+), 0 deletions(-)

diff --git a/fingerprinter b/fingerprinter
index ee7c869..9c99ef1 100755
--- a/fingerprinter
+++ b/fingerprinter
@@ -30,6 +30,8 @@ for my $file (@ARGV) {
     $batch->warnings_off();
 
     while ( eval { $record = $batch->next } ) {
+        if ($@)
+          { print XF "MARC::Batch error $@"; next }
         my $marc = undef;
         $count++; progress_ticker();
         unless ( defined $record )
-- 
1.7.2.5