From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 17 Nov 2009 16:36:31 +0000 (+0000)
Subject: Correctly check that functions flagged as documented do have documentation.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d65113e3415a7bf08be94ad231bf0828177c8925;p=p5sagit%2Fp5-mst-13.2.git

Correctly check that functions flagged as documented do have documentation.
---

diff --git a/autodoc.pl b/autodoc.pl
index 042131e..8c47ecf 100644
--- a/autodoc.pl
+++ b/autodoc.pl
@@ -69,6 +69,7 @@ DOC:
 	    else {
 		$docfuncs{$name} = [$flags, $docs, $ret, $file, $curheader, @args];
 	    }
+	    $seenfuncs{$name} = 1;
 	    if (defined $doc) {
 		if ($doc =~ /^=(?:for|head)/) {
 		    $in = $doc;
@@ -189,7 +190,6 @@ while (<IN>) {
     $retval =~ s/\t//;
 
     my $docref = delete $docfuncs{$func};
-    $seenfuncs{$func} = 1;
     if ($docref and @$docref) {
 	if ($flags =~ /A/) {
 	    $docref->[0].="x" if $flags =~ /M/;