From 76fde1db3c2c2159aaf56fb8995368c25f88f9a4 Mon Sep 17 00:00:00 2001 From: Richard Levitte Date: Sat, 23 Nov 2019 21:41:35 +0100 Subject: [PATCH] util/find-doc-nits: Better parsing of links When checking links, we need to peal away stuff that aren't part of the link proper first. That makes it easier to check the link itself. Reviewed-by: Paul Dale (Merged from https://github.com/openssl/openssl/pull/10507) --- util/find-doc-nits | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/util/find-doc-nits b/util/find-doc-nits index 687657bf9d..da6e49f781 100755 --- a/util/find-doc-nits +++ b/util/find-doc-nits @@ -450,12 +450,14 @@ sub check { # Make sure every link has a section. while ( $contents =~ /$markup_re/msg ) { my $target = $1; - next unless $target =~ /^L, or + next unless $target =~ /^L<(.*)>$/; # Skip if not L<...> + $target = $1; # Peal away L< and > + $target =~ s/\/[^\/]*$//; # Peal away possible anchor + $target =~ s/.*\|//g; # Peal away possible link text + next if $target eq ''; # Skip if links within page, or next if $target =~ /::/; # links to a Perl module, or - next if $target =~ m@L$@; # it has a section, or - next if $target =~ m@\([1357]\)/.*>$@; # it has a section/anchor + next if $target =~ /^https?:/; # is a URL link, or + next if $target =~ /\([1357]\)$/; # it has a section err($id, "Section missing in $target") } # Check for proper links to commands. -- 2.25.1