Move manpages to man[1357] structure.

[openssl.git] / util / find-undoc-api.pl

diff --git a/util/find-undoc-api.pl b/util/find-undoc-api.pl
index 7b2cb973b7a23bad05c5ae7b40ad8c55dcc7e450..585ccc4b62679573c19f3ddc2bc911ba6982e855 100755 (executable)
--- a/util/find-undoc-api.pl
+++ b/util/find-undoc-api.pl
@@ -44,13 +44,11 @@ sub getdocced()
     my %return;
 
     foreach my $pod ( glob("$dir/*.pod") ) {
-        next if $pod eq 'doc/crypto/crypto.pod';
-        next if $pod eq 'doc/ssl/ssl.pod';
         my %podinfo = extract_pod_info($pod);
         foreach my $n ( @{$podinfo{names}} ) {
             $return{$n} = $pod;
             print "# Duplicate $n in $pod and $dups{$n}\n"
-                if defined $dups{$n};
+                if defined $dups{$n} && $dups{$n} ne $pod;
             $dups{$n} = $pod;
         }
     }
@@ -58,11 +56,11 @@ sub getdocced()
     return %return;
 }
 
+my %docced = &getdocced('doc/man3');
+
 sub printem()
 {
-    my $docdir = shift;
     my $numfile = shift;
-    my %docced = &getdocced($docdir);
     my $count = 0;
 
     foreach my $func ( &parsenum($numfile) ) {
@@ -77,6 +75,5 @@ sub printem()
     print "# Found $count missing from $numfile\n\n";
 }
 
-
-&printem('doc/crypto', 'util/libcrypto.num');
-&printem('doc/ssl', 'util/libssl.num');
+&printem('util/libcrypto.num');
+&printem('util/libssl.num');