提交 5a3371e2 编写于 作者: R Rich Salz

Check for L<foo|foo>

Reviewed-by: NRichard Levitte <levitte@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/3117)
上级 79b4c806
...@@ -160,6 +160,8 @@ sub check() ...@@ -160,6 +160,8 @@ sub check()
if $contents =~ /=head1 NAME.*\.\n.*=head1 SYNOPSIS/ms; if $contents =~ /=head1 NAME.*\.\n.*=head1 SYNOPSIS/ms;
print "$id POD markup in NAME section\n" print "$id POD markup in NAME section\n"
if $contents =~ /=head1 NAME.*[<>].*=head1 SYNOPSIS/ms; 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. # Look for multiple consecutive openssl #include lines.
# Consecutive because of files like md5.pod. Sometimes it's okay # Consecutive because of files like md5.pod. Sometimes it's okay
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册