wrong subfield

[migration-tools.git] / make1per

diff --git a/make1per b/make1per
old mode 100644 (file)
new mode 100755 (executable)
index 6668d18..0fbc1f2
--- a/make1per
+++ b/make1per
@@ -11,7 +11,7 @@ while (<IN>) {
     { $seenrec = 1 if /^<record/ }
   print OUT unless $seenrec;
   if (m|^</collection|) {
-    while (<IN>) {
+    while (<IN>)
       { last if /^\n$/ }
   }
   s/\n// unless m|^</record|;