mirror of
https://github.com/curl/curl.git
synced 2024-12-09 06:30:06 +08:00
nroff-scan.pl: detect double highlights
This commit is contained in:
parent
4154165e5e
commit
7fcfe0e009
@ -64,6 +64,10 @@ sub file {
|
||||
my $l = $_;
|
||||
while($l =~ s/\\f(.)([^ ]*)\\f(.)//) {
|
||||
my ($pre, $str, $post)=($1, $2, $3);
|
||||
if($str =~ /^\\f[ib]/i) {
|
||||
print "error: $f:$line: double-highlight\n";
|
||||
$errors++;
|
||||
}
|
||||
if($post ne "P") {
|
||||
print "error: $f:$line: missing \\fP after $str\n";
|
||||
$errors++;
|
||||
|
Loading…
Reference in New Issue
Block a user