--- util/find-doc-nits.orig 2023-08-03 13:45:48 UTC +++ util/find-doc-nits @@ -80,7 +80,7 @@ my $temp = '/tmp/docnits.txt'; my $OUT; my $status = 0; -$opt_m = "man1,man3,man5,man7" unless $opt_m; +$opt_m = "man1,man5" unless $opt_m; die "Argument of -m option may contain only man1, man3, man5, and/or man7" unless $opt_m =~ /^(man[1357][, ]?)*$/; my @sections = ( split /[, ]/, $opt_m ); @@ -725,7 +725,7 @@ sub check { next if $target eq ''; # Skip if links within page, or next if $target =~ /::/; # links to a Perl module, or next if $target =~ /^https?:/; # is a URL link, or - next if $target =~ /\([1357]\)$/; # it has a section + next if $target =~ /\([15]\)$/; # it has a section err($id, "Missing man section number (likely, $mansect) in L<$target>") } # Check for proper links to commands.