diff options
author | Karl Williamson <khw@cpan.org> | 2019-07-31 13:35:55 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2019-07-31 13:55:28 -0600 |
commit | 45f8e7b102987a417bf55438e858cedced8aedbe (patch) | |
tree | 551ae1aa9a341fb26623ac8a733e84a18ec28282 /autodoc.pl | |
parent | 5514c4f10ad12603528732f1bd16d15059a26369 (diff) | |
download | perl-45f8e7b102987a417bf55438e858cedced8aedbe.tar.gz |
autodoc.pl: Forget heuristics, we have a flag
We know if something is a macro because of the 'm' flag. Don't use the
fallible heuristics to try to determine this.
Diffstat (limited to 'autodoc.pl')
-rw-r--r-- | autodoc.pl | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/autodoc.pl b/autodoc.pl index 5aaab29d14..d2875d25cc 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -44,12 +44,6 @@ require './regen/embed_lib.pl'; my %docs; my %funcflags; -my %macro = ( - ax => 1, - items => 1, - ix => 1, - svtype => 1, - ); my %missing; my $curheader = "Unknown section"; @@ -63,11 +57,6 @@ sub autodoc ($$) { # parse a file and extract documentation info FUNC: while (defined($in = $get_next_line->())) { - if ($in =~ /^#\s*define\s+([A-Za-z_][A-Za-z_0-9]+)\(/ && - ($file ne 'embed.h' || $file ne 'proto.h')) { - $macro{$1} = $file; - next FUNC; - } if ($in=~ /^=head1 (.*)/) { $curheader = $1; @@ -372,11 +361,6 @@ for (sort keys %funcflags) { } foreach (sort keys %missing) { - next if $macro{$_}; - # Heuristics for known not-a-function macros: - next if /^[A-Z]/; - next if /^dj?[A-Z]/; - warn "Function '$_', documented in $missing{$_}, not listed in embed.fnc"; } |