X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=fingerprinter;h=93df9813713e47c9ba832c2b15b927881e8b639f;hp=dcf2e29e63f4bdb8611a0419926fa8b6f39d40f8;hb=25d73006e57d662496134b270740cf3ee4e7a2d8;hpb=26d762670d7610ed9ccb1c36a8dbab3169e4e2a3 diff --git a/fingerprinter b/fingerprinter index dcf2e29..93df981 100755 --- a/fingerprinter +++ b/fingerprinter @@ -27,15 +27,7 @@ for my $file (@ARGV) { $batch->strict_off(); $batch->warnings_off(); - my $record; - while ( 1 ) { - eval { $record = $batch->next; }; - if ($@) { - import MARC::File::XML; - print "bad record\n"; - next; - } - last unless $record; + while ( $record = $batch->next ) { $count++; progress_ticker(); my $marc = undef; unless ( defined $record )