diff options
| author | Karl Williamson <khw@cpan.org> | 2019-05-29 15:05:05 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2019-05-30 18:13:29 -0600 |
| commit | fb7c7bc0f8972a6c4797147b8c5b5e0519a2741c (patch) | |
| tree | ec6b63a18c1cd8ceade68f359bb30d668b8636bc /autodoc.pl | |
| parent | fb49ac4495a8cff9430c5c4313ae8f9d6665650e (diff) | |
| download | perl-fb7c7bc0f8972a6c4797147b8c5b5e0519a2741c.tar.gz | |
autodoc.pl: Use O flag from embed.fnc for warning
This is for ancient 'perl_' forms of function calls, which is
deprecated. It turns out that there were a couple of entries that were
getting this warning when that form doesn't even exist.
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 3bcc94ae1a..0b4ec201c8 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -131,6 +131,7 @@ DOC: $embed_where = $embed_docref->{flags} =~ /A/ ? 'api' : 'guts'; $embed_may_change = $embed_docref->{flags} =~ /x/; $flags .= 'D' if $embed_docref->{flags} =~ /D/; + $flags .= 'O' if $embed_docref->{flags} =~ /O/; } else { $missing{$name} = $file; } @@ -203,7 +204,7 @@ existing code.\n\n$docs"; removed without notice.\n\n$docs" if $flags =~ /x/; } $docs .= "NOTE: the perl_ form of this function is deprecated.\n\n" - if $flags =~ /p/; + if $flags =~ /O/; $docs .= "NOTE: this function must be explicitly called as Perl_$name with an aTHX_ parameter.\n\n" if $flags =~ /o/; |