From: Richard Levitte <levitte@openssl.org>
Date: Sun, 22 May 2016 22:36:37 +0000 (+0200)
Subject: Improve the checking of pod sections
X-Git-Tag: OpenSSL_1_1_0-pre6~737
X-Git-Url: https://git.librecmc.org/?a=commitdiff_plain;ds=sidebyside;h=c4d598939ac275ce0c4a28d6b76efd1e2e47af05;p=oweals%2Fopenssl.git

Improve the checking of pod sections

(i.e. remove some bugs)

Reviewed-by: Rich Salz <rsalz@openssl.org>
---

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} = "";