diff options
Diffstat (limited to 'regen')
| -rw-r--r-- | regen/warnings.pl | 24 |
1 files changed, 23 insertions, 1 deletions
diff --git a/regen/warnings.pl b/regen/warnings.pl index dd3c49b79b..72d9a0b410 100644 --- a/regen/warnings.pl +++ b/regen/warnings.pl @@ -3,10 +3,13 @@ # Regenerate (overwriting only if changed): # # lib/warnings.pm +# pod/perllexwarn.pod # warnings.h # # from information hardcoded into this script (the $tree hash), plus the -# template for warnings.pm in the DATA section. +# template for warnings.pm in the DATA section. Only part of +# pod/perllexwarn.pod (the warnings category hierarchy) is generated, +# the other parts remaining untouched. # # When changing the number of warnings, t/op/caller.t should change to # correspond with the value of $BYTES in lib/warnings.pm @@ -440,6 +443,25 @@ while (<DATA>) { read_only_bottom_close_and_rename($pm); +my $lexwarn = open_new 'pod/perllexwarn.pod', '>'; +open my $oldlexwarn, "pod/perllexwarn.pod" + or die "$0 cannot open pod/perllexwarn.pod for reading: $!"; +select +(select($lexwarn), do { + while(<$oldlexwarn>) { + print; + last if /=for warnings.pl begin/; + } + print "\n"; + printTree($tree, " ") ; + print "\n"; + while(<$oldlexwarn>) { + last if /=for warnings.pl end/; + } + do { print } while <$oldlexwarn>; +})[0]; + +close_and_rename($lexwarn); + __END__ package warnings; |