.SA should come last, make mksubj.pl enforce it
This commit is contained in:
parent
21762a2c53
commit
5d8f33f6ad
1 changed files with 4 additions and 4 deletions
|
@ -137,14 +137,14 @@ sub parse_file {
|
||||||
} else {
|
} else {
|
||||||
error("Incorrect .SA Syntax. Syntax should be '.SA \"item1, item2\"'");
|
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 {
|
} else {
|
||||||
error(".SA request is missing");
|
error(".SA request is missing");
|
||||||
}
|
}
|
||||||
|
|
||||||
|
if (<F>) {
|
||||||
|
error(".SA request must be the last line");
|
||||||
|
}
|
||||||
|
|
||||||
$lines{$topic} = $.;
|
$lines{$topic} = $.;
|
||||||
close F;
|
close F;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue