diff options
| author | Karl Williamson <khw@cpan.org> | 2022-05-27 05:15:58 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2022-06-17 07:37:38 -0600 |
| commit | 23c7fd2dc9e27fb2c065a226b8cbf75adbf16479 (patch) | |
| tree | eef5a2555bc3efe666daad3ae8219412b19d9bd3 /autodoc.pl | |
| parent | 7c966d1426fa2755ae39a17c036f01e03cf39aaf (diff) | |
| download | perl-23c7fd2dc9e27fb2c065a226b8cbf75adbf16479.tar.gz | |
autodoc.pl: s/guts/intern/ (mostly)
The terms 'guts' and 'intern' are conflated in this file prior to this
commit. perlguts and perlintern are separate entties.
Diffstat (limited to 'autodoc.pl')
| -rw-r--r-- | autodoc.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/autodoc.pl b/autodoc.pl index 65e6f9d969..6a3447e4e0 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -639,7 +639,7 @@ sub autodoc ($$) { # parse a file and extract documentation info if ($element_name) { # Here, we have accumulated into $text, the pod for $element_name - my $where = $flags =~ /A/ ? 'api' : 'guts'; + my $where = $flags =~ /A/ ? 'api' : 'intern'; die "No =for apidoc_section nor =head1 in $file for '$element_name'\n" unless defined $section; @@ -1896,10 +1896,10 @@ _EOB_ _EOE_ # List of non-static internal functions -my @missing_guts = - grep $funcflags{$_}{flags} !~ /[AS]/ && !$docs{guts}{$_}, keys %funcflags; +my @missing_intern = + grep $funcflags{$_}{flags} !~ /[AS]/ && !$docs{intern}{$_}, keys %funcflags; -output('perlintern', <<'_EOB_', $docs{guts}, \@missing_guts, <<"_EOE_"); +output('perlintern', <<'_EOB_', $docs{intern}, \@missing_intern, <<"_EOE_"); |=head1 NAME | |perlintern - autogenerated documentation of purely B<internal> |