From: Dr. David von Oheimb <David.von.Oheimb@siemens.com>
Date: Tue, 19 Jan 2021 13:04:37 +0000 (+0100)
Subject: Util/Pod.pm: Fix uninitialized $podinfo{lastsecttext} on empty input
X-Git-Tag: openssl-3.0.0-alpha11~32
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=85c8b87b826b728a6c162edf4ec3b955c0979b4e;p=thirdparty%2Fopenssl.git

Util/Pod.pm: Fix uninitialized $podinfo{lastsecttext} on empty input

Reviewed-by: Richard Levitte <levitte@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/13898)
---

diff --git a/util/perl/OpenSSL/Util/Pod.pm b/util/perl/OpenSSL/Util/Pod.pm
index 02d37d2f854..b71f3901e08 100644
--- a/util/perl/OpenSSL/Util/Pod.pm
+++ b/util/perl/OpenSSL/Util/Pod.pm
@@ -116,6 +116,7 @@ sub extract_pod_info {
 
     my @invisible_names = ();
     my %podinfo = ( section => $defaults{section});
+    $podinfo{lastsecttext} = ""; # init needed in case input file is empty
 
     # Regexp to split a text into paragraphs found at
     # https://www.perlmonks.org/?node_id=584367