|
Link Here
|
| 1 |
--- util/find-doc-nits.orig 2021-09-07 11:46:32 UTC |
1 |
--- util/find-doc-nits.orig 2023-05-30 14:31:57.000000000 +0200 |
| 2 |
+++ util/find-doc-nits |
2 |
+++ util/find-doc-nits 2023-07-29 02:14:15.522343000 +0200 |
| 3 |
@@ -80,7 +80,7 @@ my $temp = '/tmp/docnits.txt'; |
3 |
@@ -80,7 +80,7 @@ my $status = 0; |
| 4 |
my $OUT; |
4 |
my $OUT; |
| 5 |
my $status = 0; |
5 |
my $status = 0; |
| 6 |
|
6 |
|
|
Link Here
|
| 9 |
die "Argument of -m option may contain only man1, man3, man5, and/or man7" |
9 |
die "Argument of -m option may contain only man1, man3, man5, and/or man7" |
| 10 |
unless $opt_m =~ /^(man[1357][, ]?)*$/; |
10 |
unless $opt_m =~ /^(man[1357][, ]?)*$/; |
| 11 |
my @sections = ( split /[, ]/, $opt_m ); |
11 |
my @sections = ( split /[, ]/, $opt_m ); |
| 12 |
@@ -721,7 +721,7 @@ sub check { |
12 |
@@ -725,7 +725,7 @@ sub check { |
| 13 |
next if $target eq ''; # Skip if links within page, or |
13 |
next if $target eq ''; # Skip if links within page, or |
| 14 |
next if $target =~ /::/; # links to a Perl module, or |
14 |
next if $target =~ /::/; # links to a Perl module, or |
| 15 |
next if $target =~ /^https?:/; # is a URL link, or |
15 |
next if $target =~ /^https?:/; # is a URL link, or |
| 16 |
- next if $target =~ /\([1357]\)$/; # it has a section |
16 |
- next if $target =~ /\([1357]\)$/; # it has a section |
| 17 |
+ next if $target =~ /\([15]\)$/; # it has a section |
17 |
+ next if $target =~ /\([15]\)$/; # it has a section |
| 18 |
err($id, "Section missing in $target") |
18 |
err($id, "Missing man section number (likely, $mansect) in L<$target>") |
| 19 |
} |
19 |
} |
| 20 |
# Check for proper links to commands. |
20 |
# Check for proper links to commands. |