diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-08-22 09:42:32 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-22 09:42:32 -0700 |
| commit | 79fc8511e49123b48e80f6f601f5d0b3a3fc3a34 (patch) | |
| tree | d73fc54068d79d8ffce156adb128be57582a3a39 /autodoc.pl | |
| parent | 2616800a6ed97301803de10c5e05d41b22088ec8 (diff) | |
| download | perl-79fc8511e49123b48e80f6f601f5d0b3a3fc3a34.tar.gz | |
Only list non-static undocumented funcs in perlintern
Diffstat (limited to 'autodoc.pl')
| -rw-r--r-- | autodoc.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/autodoc.pl b/autodoc.pl index c1e25787fb..584ee79073 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -441,7 +441,9 @@ L<perlguts>, L<perlxs>, L<perlxstut>, L<perlintern> _EOE_ -my @missing_guts = grep $funcflags{$_}{flags} !~ /A/ && !$docs{guts}{$_}, keys %funcflags; +# List of non-static internal functions +my @missing_guts = + grep $funcflags{$_}{flags} !~ /[As]/ && !$docs{guts}{$_}, keys %funcflags; output('perlintern', <<'END', $docs{guts}, \@missing_guts, <<'END'); =head1 NAME |