diff options
| author | Karl Williamson <khw@cpan.org> | 2020-08-16 06:35:04 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2020-09-04 16:54:58 -0600 |
| commit | c286f3325e05c89b2d709311ae16b610d425c65d (patch) | |
| tree | e6299bbf14c896d9f23bcf5e42053acebbc593df /regen | |
| parent | b8a2649a502a2760c6bc90d32f71a03c232eee81 (diff) | |
| download | perl-c286f3325e05c89b2d709311ae16b610d425c65d.tar.gz | |
regen/warnings.pl: Move some hidden pod
This is a long list of warning categories which doesn't print, but
exists to indicate to downstream tools, such as Devel::PPPort that these
categories exist and are documented. Move them to the end of the file
so as to make the meat of things flow better.
Diffstat (limited to 'regen')
| -rw-r--r-- | regen/warnings.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/regen/warnings.pl b/regen/warnings.pl index f813d9360a..99a765ae1c 100644 --- a/regen/warnings.pl +++ b/regen/warnings.pl @@ -371,10 +371,6 @@ EOM push @names, $name; $last_ver = $version ; } - print $warn "\n\n/*\n" ; - - print $warn map { "=for apidoc Amnh||$_\n" } @names; - print $warn "\n=cut\n*/\n\n" ; print $warn tab(6, '#define WARNsize'), " $warn_size\n" ; print $warn tab(6, '#define WARN_ALLstring'), ' "', ('\125' x $warn_size) , "\"\n" ; @@ -484,9 +480,13 @@ category parameters passed. (unpackWARN4(x) && \ isWARNf_on(PL_curcop->cop_warnings, unpackWARN4(x))))))))) -/* end of file warnings.h */ EOM + print $warn "\n\n/*\n" ; + print $warn map { "=for apidoc Amnh||$_\n" } @names; + print $warn "\n=cut\n*/\n\n" ; + print $warn "/* end of file warnings.h */\n"; + read_only_bottom_close_and_rename($warn); } |