From: Richard Levitte <levitte@openssl.org>
Date: Tue, 19 Feb 2019 11:10:14 +0000 (+0100)
Subject: OpenSSL::Util::Pod: allow slashes in names
X-Git-Tag: openssl-3.0.0-alpha1~2463
X-Git-Url: https://git.openssl.org/?p=openssl.git;a=commitdiff_plain;h=4ca00f934f0b86dc1112c360f4b2ce3bd7ab8c93

OpenSSL::Util::Pod: allow slashes in names

The names in the NAME section may describe headers, which contain a slash
for OpenSSL headers.  We deal with that by converting slashes to dashes
for the file names.

Reviewed-by: Matt Caswell <matt@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/8286)
---

diff --git a/util/perl/OpenSSL/Util/Pod.pm b/util/perl/OpenSSL/Util/Pod.pm
index 02ad0a8f39..16622c933c 100644
--- a/util/perl/OpenSSL/Util/Pod.pm
+++ b/util/perl/OpenSSL/Util/Pod.pm
@@ -140,7 +140,7 @@ sub extract_pod_info {
     $podinfo{lastsecttext} =~ s| - .*$||;
 
     my @names =
-        map { s|\s+||g; $_ }
+        map { s|\s+||g; s|/|-|g; $_ }
         split(m|,|, $podinfo{lastsecttext});
 
     return ( section => $podinfo{section}, names => [ @names ] );