diff options
| author | Karl Williamson <khw@cpan.org> | 2019-08-31 14:25:26 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2019-09-02 21:52:12 -0600 |
| commit | 3dbfa774a9f861379d0b3183696b6172d02ddb16 (patch) | |
| tree | 5492eb0fa74594a6d3fade511691a01256a6a246 /autodoc.pl | |
| parent | 7df56744f9fc5926b6e799aa9c077c1e57807217 (diff) | |
| download | perl-3dbfa774a9f861379d0b3183696b6172d02ddb16.tar.gz | |
embed.fnc: Add 'u' flag for unorthodox parameter macros
This tells downstream processors, such as Devel::PPPort that compiling
macros like these will be won't work, as they have some issue. For
example, aTHX_ expands to have a trailing comma.
Diffstat (limited to 'autodoc.pl')
| -rw-r--r-- | autodoc.pl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/autodoc.pl b/autodoc.pl index efd5e25fbe..d199bd83d5 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -125,8 +125,11 @@ Expected: =for apidoc flags|returntype|name =for apidoc name EOS + die "flag $1 is not legal (for function $name (from $file))" + if $flags =~ / ( [^AabCDdEefhiMmNnTOoPpRrSsUuWXx] ) /x; next FUNC if $flags =~ /h/; + die "'u' flag must also have 'm' flag' for $name" if $flags =~ /u/ && $flags !~ /m/; warn ("'$name' not \\w+ in '$proto_in_file' in $file") if $flags !~ /N/ && $name !~ / ^ [_[:alpha:]] \w* $ /x; my $docs = ""; |