mirror/openssl
2
0
Fork 0
mirror of https://github.com/openssl/openssl.git synced 2025-01-18 13:44:20 +08:00
Code Issues Packages Projects Releases Wiki Activity

OpenSSL::Util::extract_pod_info(): Read the POD one paragraph at a time

Browse Source 
POD files should always be treated this way

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:53:31 +01:00
parent ccfce835e0
commit dfb45dc824
1 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
util/perl/OpenSSL/Util/Pod.pm
View File

@ -115,8 +115,18 @@ sub extract_pod_info {
}
my %podinfo = ( section => $defaults{section});
foreach (split /^/, $contents) {
s|\R$||;
# Regexp to split a text into paragraphs found at
# https://www.perlmonks.org/?node_id=584367
# Most of all, \G (continue at last match end) and /g (anchor
# this match for \G) are significant
foreach (map { /\G((?:(?!\n\n).)*\n+|.+\z)/sg } $contents) {
# Remove as many line endings as possible from the end of the paragraph
while (s|\R$||) {}
print STDERR "DEBUG: Paragraph:\n$_\n"
if $defaults{debug};
# Stop reading when we have reached past the NAME section.
last if (m|^=head1|
&& defined $podinfo{lastsect}
@ -148,7 +158,7 @@ sub extract_pod_info {
print STDERR "DEBUG: Done reading $filename\n" if $defaults{debug};
}
$podinfo{lastsecttext} =~ s| - .*$||;
$podinfo{lastsecttext} =~ s|\s+-\s+.*$||s;
my @names =
map { s/^\s+//g; # Trim prefix blanks
@ -157,6 +167,10 @@ sub extract_pod_info {
$_ }
split(m|,|, $podinfo{lastsecttext});
print STDERR
"DEBUG: Collected names are: ", join(', ', @names), "\n"
if $defaults{debug};
return ( section => $podinfo{section},
names => [ @names ],
contents => $contents );