public/openssl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

OpenSSL::Util::extract_pod_info(): Allow invisible names

Browse source 
This should be very unusual, but we do have a case of a name we don't
want to display.

Reviewed-by: Matt Caswell <matt@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/10621)
This commit is contained in:
Richard Levitte 2019-12-13 11:54:55 +01:00
parent dfb45dc824
commit 8b849cca31
1 changed files with 14 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

16
util/perl/OpenSSL/Util/Pod.pm
View file

@ -114,6 +114,7 @@ sub extract_pod_info {
die "Unknown input type";
}
my @invisible_names = ();
my %podinfo = ( section => $defaults{section});
# Regexp to split a text into paragraphs found at
@ -143,6 +144,16 @@ sub extract_pod_info {
$podinfo{lastsecttext} = "";
}
# Add invisible names
if (m|^=for\s+openssl\s+names:\s*(.*)|s) {
my $x = $1;
my @tmp = map { map { s/\s+//g; $_ } split(/,/, $_) } $x;
print STDERR
"DEBUG: Found invisible names: ", join(', ', @tmp), "\n"
if $defaults{debug};
push @invisible_names, @tmp;
}
next if (m|^=| || m|^\s*$|);
# Collect the section text
@ -168,11 +179,12 @@ sub extract_pod_info {
split(m|,|, $podinfo{lastsecttext});
print STDERR
"DEBUG: Collected names are: ", join(', ', @names), "\n"
"DEBUG: Collected names are: ",
join(', ', @names, @invisible_names), "\n"
if $defaults{debug};
return ( section => $podinfo{section},
names => [ @names ],
names => [ @names, @invisible_names ],
contents => $contents );
}