diff options
author | Karl Williamson <khw@cpan.org> | 2020-07-16 18:04:24 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-07-17 21:31:04 -0600 |
commit | 7d4ca04c5c923a5f9d7537da52b257a597b79742 (patch) | |
tree | 76582f9f4e231b8cfc9cef12118a3de7212c1f60 /autodoc.pl | |
parent | f03436465faaecb892ba9262f03515738e33ab6c (diff) | |
download | perl-7d4ca04c5c923a5f9d7537da52b257a597b79742.tar.gz |
autodoc.pl: varargs fcns require full 'Perl_foo'
Prior to this commit, perlapi indicated that you could say foo(...),
when in fact that doesn't work for these functions, which have to be
called as Perl_foo(aTHX_ ...)
Diffstat (limited to 'autodoc.pl')
-rw-r--r-- | autodoc.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/autodoc.pl b/autodoc.pl index 8bf557e64a..ef1464d6cf 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -244,7 +244,8 @@ removed without notice.\n\n$docs" if $flags =~ /x/; } # Is Perl_, but no #define foo # Perl_foo - my $p = $flags =~ /p/ && $flags =~ /o/ && $flags !~ /M/; + 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" if $flags =~ /O/; |