mirror/openssl
2
0
Fork 0
mirror of https://github.com/openssl/openssl.git synced 2025-02-17 14:32:04 +08:00
Code Issues Packages Projects Releases Wiki Activity

perl: OpenSSL::Util::Pod::extract_pod_info() now saves the file contents

Browse Source 
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-12 19:49:49 +01:00
parent b0d3442efc
commit 5423cabb50
1 changed files with 20 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -82,6 +82,10 @@ was given as input.
All the names extracted from the NAME section. All the names extracted from the NAME section.
=item B<contents =E<gt> "...">
The whole contents of the .pod file.
=back =back
=back =back
@ -94,17 +98,24 @@ sub extract_pod_info {
my %defaults = ( debug => 0, section => 0, %$defaults_ref ); my %defaults = ( debug => 0, section => 0, %$defaults_ref );
my $fh = undef; my $fh = undef;
my $filename = undef; my $filename = undef;
my $contents;
# If not a file handle, then it's assume to be a file path (a string) # If not a file handle, then it's assume to be a file path (a string)
unless (ref $input eq "GLOB") { if (ref $input eq "") {
$filename = $input; $filename = $input;
open $fh, $input or die "Trying to read $filename: $!\n"; open $fh, $input or die "Trying to read $filename: $!\n";
print STDERR "DEBUG: Reading $input\n" if $defaults{debug}; print STDERR "DEBUG: Reading $input\n" if $defaults{debug};
$input = $fh; $input = $fh;
} }
if (ref $input eq "GLOB") {
local $/ = undef;
$contents = <$input>;
} else {
die "Unknown input type";
}
my %podinfo = ( section => $defaults{section}); my %podinfo = ( section => $defaults{section});
while(<$input>) { foreach (split /^/, $contents) {
s|\R$||; s|\R$||;
# Stop reading when we have reached past the NAME section. # Stop reading when we have reached past the NAME section.
last if (m|^=head1| last if (m|^=head1|
@ -140,10 +151,15 @@ sub extract_pod_info {
$podinfo{lastsecttext} =~ s| - .*$||; $podinfo{lastsecttext} =~ s| - .*$||;
my @names = my @names =
map { s|\s+||g; s|/|-|g; $_ } map { s/^\s+//g; # Trim prefix blanks
s/\s+$//g; # Trim suffix blanks
s|/|-|g; # Treat slash as dash
$_ }
split(m|,|, $podinfo{lastsecttext}); split(m|,|, $podinfo{lastsecttext});
return ( section => $podinfo{section}, names => [ @names ] ); return ( section => $podinfo{section},
names => [ @names ],
contents => $contents );
} }
1; 1;