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

Improve the checking of pod sections 



(i.e. remove some bugs)

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

util/process_docs.pl

+4 −2
Original line number Diff line number Diff line
@@ -87,8 +87,10 @@ foreach my $subdir (keys %{$options{subdir}}) { 
                print STDERR "Found section number $1\n" if $options{debug};

                $podinfo{section} = $1;

            }

            last if m|^=head1| && defined $podinfo{lastsect} eq "NAME";

            if (m|^head1=\s*(.*)|) {

            last if (m|^=head1|

                     && defined $podinfo{lastsect}

                     && $podinfo{lastsect} eq "NAME");

            if (m|^=head1\s*(.*)|) {

                $podinfo{lastsect} = $1;

                $podinfo{lastsect} =~ s/\s+$//;

                $podinfo{lastsecttext} = "";