don't crash if record is dumped because it's missing its -ot

Signed-off-by: Galen Charlton <gmc@esilibrary.com>

diff --git a/marc_cleanup b/marc_cleanup
index 4d7354e..c26525c 100755 (executable)
--- a/marc_cleanup
+++ b/marc_cleanup
@@ -93,7 +93,7 @@ while ( buildrecord() ) {
     until ($ptr == $#record) {
         # get datafield/tag data if we have it
         $rc = stow_record_data() if ($c->{'renumber-from'} and $c->{'original-tag'});
-        return $rc if $rc;
+        next if $rc;
 
         # naked ampersands
         if ($record[$ptr] =~ /&/ && $record[$ptr] !~ /&\w+?;/)