.SA should come last, make mksubj.pl enforce it

[empserver] / info / mksubj.pl

diff --git a/info/mksubj.pl b/info/mksubj.pl
index 1fbdb41f777d90c959cc2c161e097b6983d5aa5a..406390985fd9fc50a58778f9f71a414732679d08 100644 (file)
--- a/info/mksubj.pl
+++ b/info/mksubj.pl
@@ -137,14 +137,14 @@ sub parse_file {
        } else {
            error("Incorrect .SA Syntax.  Syntax should be '.SA \"item1, item2\"'");
        }
-
-       while (<F>) {
-           error("Multiple .SA requests.  Each file may contain at most one.") if /^\.SA/;
-       }
     } else {
        error(".SA request is missing");
     }
 
+    if (<F>) {
+       error(".SA request must be the last line");
+    }
+
     $lines{$topic} = $.;
     close F;
 }