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
This commit is contained in:
parent
e186ca6534
commit
aaab6cb0c4
@ -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, $_;
|
||||
}
|
||||
|
||||
Loading…
Reference in New Issue
Block a user