diff options
author | Karl Williamson <khw@cpan.org> | 2020-07-22 08:44:38 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-09-04 16:13:24 -0600 |
commit | 27104915c310afc4d6159269915a4f0e177e09a4 (patch) | |
tree | efa16b57f1789a74f9bed7331409f0ec948446d4 /autodoc.pl | |
parent | bb05203f441fe4aeac7b5e8a6434bcde115333ca (diff) | |
download | perl-27104915c310afc4d6159269915a4f0e177e09a4.tar.gz |
autodoc.pl: Add C<...> around some text
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 caa685c249..c2fdcd3698 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -248,11 +248,11 @@ removed without notice.\n\n$docs" if $flags =~ /x/; my $p = (($flags =~ /p/ && $flags =~ /o/ && $flags !~ /M/) || ($flags =~ /f/ && $flags !~ /T/)); # Can't handle threaded varargs - $docs .= "NOTE: the perl_ form of this function is deprecated.\n\n" + $docs .= "NOTE: the C<perl_> form of this function is deprecated.\n\n" if $flags =~ /O/; if ($p) { - $docs .= "NOTE: this function must be explicitly called as Perl_$name"; - $docs .= " with an aTHX_ parameter" if $flags !~ /T/; + $docs .= "NOTE: this function must be explicitly called as C<Perl_$name>"; + $docs .= " with an C<aTHX_> parameter" if $flags !~ /T/; $docs .= ".\n\n" } @@ -381,7 +381,7 @@ _EOB_ print $fh "\n=over\n\n"; for my $missing (sort @$missing) { - print $fh "=item $missing\nX<$missing>\n\n"; + print $fh "=item C<$missing>\nX<$missing>\n\n"; } print $fh "=back\n\n"; } |