revert previous commit (swept too much in)

diff --git a/fingerprinter b/fingerprinter
index dcf2e29..93df981 100755 (executable)
--- 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 )

diff --git a/marc_cleanup b/marc_cleanup
index 53801f3..89f8ab0 100755 (executable)
--- a/marc_cleanup
+++ b/marc_cleanup
@@ -92,12 +92,12 @@ while ( buildrecord() ) {
         }
 
         # subfields can't be non-alphanumeric
-        #if ($record[$ptr] =~ /<subfield code="(.*?)"/) {
-            #if ($1 =~ /\P{IsAlnum}/ or $1 eq '') {
-                #edit("Junk in subfield code/Null subfield code");
-                #next;
-            #}
-        #}
+        if ($record[$ptr] =~ /<subfield code="(.*?)"/) {
+            if ($1 =~ /\P{IsAlnum}/ or $1 eq '') {
+                edit("Junk in subfield code/Null subfield code");
+                next;
+            }
+        }
         # subfields can't be non-alphanumeric
         if ($record[$ptr] =~ /<subfield code="(\w{2,})"/) {
             edit("Subfield code larger than 1 char");