X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/bb3eff5d3d7e45d422801f5cc0f329daf0c4766d..a1a5a9c8b3ceb32212a136f7b42e1889e8500ba8:/regen/warnings.pl?ds=sidebyside

diff --git a/regen/warnings.pl b/regen/warnings.pl
index 56186c5..1c58b3a 100644
--- a/regen/warnings.pl
+++ b/regen/warnings.pl
@@ -358,15 +358,21 @@ EOM
 
   my $k ;
   my $last_ver = 0;
+  my @names;
   foreach $k (sort { $a <=> $b } keys %ValueToName) {
       my ($name, $version) = @{ $ValueToName{$k} };
       print $warn "\n/* Warnings Categories added in Perl $version */\n\n"
           if $last_ver != $version ;
       $name =~ y/:/_/;
-      print $warn tab(6, "#define WARN_$name"), " $k\n" ;
+      $name = "WARN_$name";
+      print $warn tab(6, "#define $name"), " $k\n" ;
+      push @names, $name;
       $last_ver = $version ;
   }
-  print $warn "\n" ;
+  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" ;