X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=fingerprinter;fp=fingerprinter;h=dcf2e29e63f4bdb8611a0419926fa8b6f39d40f8;hp=93df9813713e47c9ba832c2b15b927881e8b639f;hb=26d762670d7610ed9ccb1c36a8dbab3169e4e2a3;hpb=0445ca1b7fb163fd20346fedaaa7e8612f8f93c3

diff --git a/fingerprinter b/fingerprinter
index 93df981..dcf2e29 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 "bad record\n";
+            next;
+        }
+        last unless $record;
         $count++; progress_ticker();
         my $marc = undef;
         unless ( defined $record )