projects
/
migration-tools.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
(from parent 1:
25d7300
)
skip over records that cannot be parsed
author
Galen Charlton
<gmc@esilibrary.com>
Tue, 13 Apr 2010 19:23:51 +0000 (19:23 +0000)
committer
Galen Charlton
<gmc@esilibrary.com>
Tue, 13 Apr 2010 19:23:51 +0000 (19:23 +0000)
fingerprinter
patch
|
blob
|
history
diff --git
a/fingerprinter
b/fingerprinter
index
93df981
..
55b5f33
100755
(executable)
--- 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 )