cmdline-opts/gen.pl: error on initital blank line

After the "---" separator, there should be no blank line and this script
now errors out if one is detected.

Ref: #12696
Closes #12698

diff --git a/docs/cmdline-opts/gen.pl b/docs/cmdline-opts/gen.pl
index b31a42b580fa03f5f98e32a16aa82d9989bf64ee..2766ca265bdcbee1354c0b13a41d292ab75321a9 100755 (executable)
--- a/docs/cmdline-opts/gen.pl
+++ b/docs/cmdline-opts/gen.pl
@@ -219,6 +219,7 @@ sub single {
     my @examples; # there can be more than one
     my $magic; # cmdline special option
     my $line;
+    my $dline;
     my $multi;
     my $scope;
     my $experimental;
@@ -322,6 +323,11 @@ sub single {
     my $tablemode = 0;
     while(<F>) {
         $line++;
+        $dline++;
+        if(($dline == 1) && ($_ =~ /^[\r\n]*\z/)) {
+            print STDERR "$f:$line:1:ERROR: unnecessary leading blank line\n";
+            return 3;
+        }
         if(/^## (.*)/) {
             if(!$tablemode) {
                 push @desc, ".RS\n";
@@ -341,6 +347,7 @@ sub single {
         elsif(/^\.(IP|RS|RE)/) {
             my ($cmd) = ($1);
             print STDERR "$f:$line:1:ERROR: $cmd detected, use ##-style\n";
+            return 3;
         }
         push @desc, $_;
     }