diff options
| author | Dr. David von Oheimb <David.von.Oheimb@siemens.com> | 2021-01-19 14:04:37 +0100 |
|---|---|---|
| committer | Dr. David von Oheimb <dev@ddvo.net> | 2021-01-23 15:25:04 +0100 |
| commit | 85c8b87b826b728a6c162edf4ec3b955c0979b4e (patch) | |
| tree | 3bd6cbedfa28309faf1aab1e37b1b209ec1ad727 /util | |
| parent | Fix no-dh and no-dsa (diff) | |
| download | openssl-85c8b87b826b728a6c162edf4ec3b955c0979b4e.tar.xz openssl-85c8b87b826b728a6c162edf4ec3b955c0979b4e.zip | |
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)
Diffstat (limited to 'util')
| -rw-r--r-- | util/perl/OpenSSL/Util/Pod.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/util/perl/OpenSSL/Util/Pod.pm b/util/perl/OpenSSL/Util/Pod.pm index 02d37d2f85..b71f3901e0 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 |