oops, too many braces

diff --git a/make1per b/make1per
index 6668d18..0fbc1f2 100755 (executable)
--- 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|;