$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 )