</record> was, brilliantly, NOT being appended to records

diff --git a/yaz-cleanup b/yaz-cleanup
index f2e3442..f4b2452 100755 (executable)
--- a/yaz-cleanup
+++ b/yaz-cleanup
@@ -137,6 +137,7 @@ sub getline {
             %reccontext = ();
             $reccount++;
         } elsif ($l =~ m|</record>|) {
+            push @record, $l;
             write_record($NUMARC) if $reccount;
         } else {
             push @record, $l;