diff options
author | Karl Williamson <khw@cpan.org> | 2019-09-14 14:11:47 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2019-09-15 10:39:56 -0600 |
commit | 2f4e63396c17fcbf39095377d005faf7efd2b341 (patch) | |
tree | 966c42284ff0588e4b24e8f1fc5f8da56aafcb45 /autodoc.pl | |
parent | f0656a59b1612929968277af95a71b7149c24dfc (diff) | |
download | perl-2f4e63396c17fcbf39095377d005faf7efd2b341.tar.gz |
autodoc.pl: Special case macros whose name begins with Perl_
The usage example for these will have the thread context parameter
unless there is no thread context.
Diffstat (limited to 'autodoc.pl')
-rw-r--r-- | autodoc.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/autodoc.pl b/autodoc.pl index 799852fc45..b8d46b312e 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -251,7 +251,7 @@ removed without notice.\n\n$docs" if $flags =~ /x/; } } my $args = ''; - if ($p && $flags !~ /T/) { + if ($flags !~ /T/ && ($p || ($flags =~ /m/ && $name =~ /^Perl_/))) { $args = @args ? "pTHX_ " : "pTHX"; if ($long_args) { print $fh $args; $args = '' } } |