From 7e41db464ad21016e6f5de6f2069f0043173b137 Mon Sep 17 00:00:00 2001
From: Galen Charlton <gmc@esilibrary.com>
Date: Tue, 13 Apr 2010 19:23:51 +0000
Subject: [PATCH] skip over records that cannot be parsed

---
 fingerprinter |   10 +++++++++-
 1 files changed, 9 insertions(+), 1 deletions(-)

diff --git a/fingerprinter b/fingerprinter
index 93df981..55b5f33 100755
--- a/fingerprinter
+++ b/fingerprinter
@@ -27,7 +27,15 @@ for my $file (@ARGV) {
     $batch->strict_off();
     $batch->warnings_off();
 
-    while ( $record = $batch->next ) {
+    my $record;
+    while ( 1 ) {
+        eval { $record = $batch->next; };
+        if ($@) {
+            import MARC::File::XML;
+            print "skipping bad record: $@\n";
+            next;
+        }
+        last unless $record;
         $count++; progress_ticker();
         my $marc = undef;
         unless ( defined $record )
-- 
1.7.2.5