diff options
author | Richard Levitte <levitte@openssl.org> | 2016-05-23 00:36:37 +0200 |
---|---|---|
committer | Richard Levitte <levitte@openssl.org> | 2016-05-23 00:45:44 +0200 |
commit | c4d598939ac275ce0c4a28d6b76efd1e2e47af05 (patch) | |
tree | d2846efa69f72dbc479d896c94f1356f2b25a089 | |
parent | beadb441572e47e163c6b59a9eb72b47e2d9227d (diff) |
Improve the checking of pod sections
(i.e. remove some bugs)
Reviewed-by: Rich Salz <rsalz@openssl.org>
-rw-r--r-- | util/process_docs.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/util/process_docs.pl b/util/process_docs.pl index 150e48bf08..c07cb755cc 100644 --- a/util/process_docs.pl +++ b/util/process_docs.pl @@ -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} = ""; |