Commit e4860d53 authored by Richard Levitte's avatar Richard Levitte
Browse files

process_docs.pl: When starting to read a new head1 section, remove previous text 



Reviewed-by: default avatarRich Salz <rsalz@openssl.org>
parent eae02924

util/process_docs.pl

+2 −1
Original line number Diff line number Diff line
@@ -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;