root
/
openssl
mirror of https://github.com/openssl/openssl.git
1
0
Fork 0
Code Issues Actions 7 Packages Projects Releases Wiki Activity

Handle the renamed command POD files in find-doc-nits 

Reviewed-by: Tomas Mraz <tmraz@fedoraproject.org>
Reviewed-by: Richard Levitte <levitte@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/9729)
This commit is contained in:
Rich Salz 2019-08-29 12:12:17 -04:00 committed by Richard Levitte
parent 2ad75c6c13
commit bc5a80910d
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
util/find-doc-nits
View File

@ -533,6 +533,7 @@ my %skips = (
sub checkflags() {
my $cmd = shift;
my $doc = shift;
my %cmdopts;
my %docopts;
my $ok = 1;
@ -548,8 +549,8 @@ sub checkflags() {
close CFH;
# Get the list of flags from the synopsis
open CFH, "<doc/man1/$cmd.pod"
|| die "Can't open $cmd.pod, $!";
open CFH, "<$doc"
|| die "Can't open $doc, $!";
while ( <CFH> ) {
chop;
last if /DESCRIPTION/;
@ -617,13 +618,15 @@ if ( $opt_c ) {
close FH;
# See if each has a manpage.
foreach ( @commands ) {
next if $_ eq 'help' || $_ eq 'exit';
if ( ! -f "doc/man1/$_.pod" ) {
print "doc/man1/$_.pod does not exist\n";
foreach my $cmd ( @commands ) {
next if $cmd eq 'help' || $cmd eq 'exit';
my $doc = "doc/man1/$cmd.pod";
$doc = "doc/man1/openssl-$cmd.pod" if -f "doc/man1/openssl-$cmd.pod";
if ( ! -f "$doc" ) {
print "$doc does not exist\n";
$ok = 0;
} else {
$ok = 0 if not &checkflags($_);
$ok = 0 if not &checkflags($cmd, $doc);
}
}