diff options
| author | Richard Levitte <levitte@openssl.org> | 2016-05-23 00:38:48 +0200 |
|---|---|---|
| committer | Richard Levitte <levitte@openssl.org> | 2016-05-23 00:45:44 +0200 |
| commit | 398c1b773a551183ed701b99fde901e5f4fc9426 (patch) | |
| tree | d4161cd3e2e3e5d13d63bf6f0fff9c77f86a3099 /util | |
| parent | c4d598939ac275ce0c4a28d6b76efd1e2e47af05 (diff) | |
| download | openssl-398c1b773a551183ed701b99fde901e5f4fc9426.tar.gz | |
util/process_docs.pl: Add more debugging output
Reviewed-by: Rich Salz <rsalz@openssl.org>
Diffstat (limited to 'util')
| -rw-r--r-- | util/process_docs.pl | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/util/process_docs.pl b/util/process_docs.pl index c07cb755cc..c2c35ee1c5 100644 --- a/util/process_docs.pl +++ b/util/process_docs.pl @@ -84,7 +84,8 @@ foreach my $subdir (keys %{$options{subdir}}) { while (<$pod_fh>) { s|\R$||; if (m|^=for\s+comment\s+openssl_manual_section:\s*([0-9])\s*$|) { - print STDERR "Found section number $1\n" if $options{debug}; + print STDERR "DEBUG: Found man section number $1\n" + if $options{debug}; $podinfo{section} = $1; } last if (m|^=head1| @@ -93,13 +94,20 @@ foreach my $subdir (keys %{$options{subdir}}) { if (m|^=head1\s*(.*)|) { $podinfo{lastsect} = $1; $podinfo{lastsect} =~ s/\s+$//; + print STDERR "DEBUG: Found new pod section $1\n" + if $options{debug}; + print STDERR "DEBUG: Clearing pod section text\n" + if $options{debug}; $podinfo{lastsecttext} = ""; } next if (m|^=| || m|^\s*$|); + print STDERR "DEBUG: accumulating pod section text \"$_\"\n" + if $options{debug}; $podinfo{lastsecttext} .= " " if $podinfo{lastsecttext}; $podinfo{lastsecttext} .= $_; } close $pod_fh; + print STDERR "DEBUG: Done reading $podpath\n" if $options{debug}; $podinfo{lastsecttext} =~ s| - .*$||; print STDERR "DEBUG: Done reading $podpath\n" if $options{debug}; |