skip over records that cannot be parsed

[migration-tools.git] / fingerprinter

diff --git a/fingerprinter b/fingerprinter
index dcf2e29..55b5f33 100755 (executable)
--- a/fingerprinter
+++ b/fingerprinter
@@ -32,7 +32,7 @@ for my $file (@ARGV) {
         eval { $record = $batch->next; };
         if ($@) {
             import MARC::File::XML;
-            print "bad record\n";
+            print "skipping bad record: $@\n";
             next;
         }
         last unless $record;