diff options
| author | Karl Williamson <khw@cpan.org> | 2023-05-01 07:22:10 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2023-05-03 09:14:21 -0600 |
| commit | 05e20b67a8c9b144a80337d9478ec0cb9a5b2374 (patch) | |
| tree | 895c8786105dfa9c180155301ddd97c7870ea7fa | |
| parent | 6bbe21a508a82ef4a3849bd69a435b3cf8d5bf40 (diff) | |
| download | perl-05e20b67a8c9b144a80337d9478ec0cb9a5b2374.tar.gz | |
autodoc.pl: strftime format functions can use short names
It was saying you had to use the Perl_foo(aTHX_ ...) form, which isn't
true.
| -rw-r--r-- | autodoc.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/autodoc.pl b/autodoc.pl index 9583901d18..8b05a170ab 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -1321,7 +1321,9 @@ sub docout ($$$) { # output the docs for one function group if ( ($item_flags =~ /p/ && $item_flags =~ /o/ && $item_flags !~ /M/) # Can't handle threaded varargs - || ($item_flags =~ /f/ && $item_flags !~ /T/)) + || ( $item_flags =~ /f/ + && $item_flags !~ /T/ + && $item_name !~ /strftime/)) { $item->{name} = "Perl_$item_name"; print $fh <<~"EOT"; |