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

[openssl.git] / util / perl / OpenSSL / Util / Pod.pm

diff --git a/util/perl/OpenSSL/Util/Pod.pm b/util/perl/OpenSSL/Util/Pod.pm
index 02ad0a8f39b2604987b44bc383b10c637774c8ab..16622c933c37975f13a357858380ed00237d78bb 100644 (file)
--- 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 ] );