From 05e20b67a8c9b144a80337d9478ec0cb9a5b2374 Mon Sep 17 00:00:00 2001
From: Karl Williamson <khw@cpan.org>
Date: Mon, 1 May 2023 07:22:10 -0600
Subject: 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.
---
 autodoc.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'autodoc.pl')

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";
-- 
cgit v1.2.1