diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-11-17 16:36:31 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-11-17 16:36:31 +0000 |
| commit | d65113e3415a7bf08be94ad231bf0828177c8925 (patch) | |
| tree | 026990f4887ec9d1ff57dd33a67c5ab61e50b391 /autodoc.pl | |
| parent | ed6f739c614e9c52ea6a8707c1e58d36ee71a096 (diff) | |
| download | perl-d65113e3415a7bf08be94ad231bf0828177c8925.tar.gz | |
Correctly check that functions flagged as documented do have documentation.
Diffstat (limited to 'autodoc.pl')
| -rw-r--r-- | autodoc.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/autodoc.pl b/autodoc.pl index 042131e976..8c47ecf24c 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/; |