summaryrefslogtreecommitdiff
path: root/autodoc.pl
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2019-07-31 13:35:55 -0600
committerKarl Williamson <khw@cpan.org>2019-07-31 13:55:28 -0600
commit45f8e7b102987a417bf55438e858cedced8aedbe (patch)
tree551ae1aa9a341fb26623ac8a733e84a18ec28282 /autodoc.pl
parent5514c4f10ad12603528732f1bd16d15059a26369 (diff)
downloadperl-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.pl16
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";
}