Check for L<foo|foo>

Reviewed-by: Richard Levitte <levitte@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/3117)

diff --git a/util/find-doc-nits b/util/find-doc-nits
index f14e36ed4a5a1afec54f852449b0b6176fe0668d..ff2409110a100a070b4a7b1323041f01f6652476 100755 (executable)
--- a/util/find-doc-nits
+++ b/util/find-doc-nits
@@ -160,6 +160,8 @@ sub check()
         if $contents =~ /=head1 NAME.*\.\n.*=head1 SYNOPSIS/ms;
     print "$id POD markup in NAME section\n"
         if $contents =~ /=head1 NAME.*[<>].*=head1 SYNOPSIS/ms;
+    print "$id Duplicate $1 in L<>\n"
+        if $contents =~ /L<([^>]*)\|([^>]*)>/ && $1 eq $2;
 
     # Look for multiple consecutive openssl #include lines.
     # Consecutive because of files like md5.pod. Sometimes it's okay