From e4860d531dc52d6616e133a4a68f268bf44e1501 Mon Sep 17 00:00:00 2001
From: Richard Levitte <levitte@openssl.org>
Date: Sat, 21 May 2016 20:50:48 +0200
Subject: [PATCH] process_docs.pl: When starting to read a new head1 section,
 remove previous text

Reviewed-by: Rich Salz <rsalz@openssl.org>
---
 util/process_docs.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/util/process_docs.pl b/util/process_docs.pl
index eaa4964869..150e48bf08 100644
--- a/util/process_docs.pl
+++ b/util/process_docs.pl
@@ -91,9 +91,10 @@ foreach my $subdir (keys %{$options{subdir}}) {
             if (m|^head1=\s*(.*)|) {
                 $podinfo{lastsect} = $1;
                 $podinfo{lastsect} =~ s/\s+$//;
+                $podinfo{lastsecttext} = "";
             }
             next if (m|^=| || m|^\s*$|);
-            $podinfo{lastsecttext} .= " ";
+            $podinfo{lastsecttext} .= " " if $podinfo{lastsecttext};
             $podinfo{lastsecttext} .= $_;
         }
         close $pod_fh;
-- 
2.34.1