diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-02-17 22:42:03 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-02-17 22:56:25 -0700 |
| commit | 8457b38f6553b1ed5f485478160b745dfe1b7fa9 (patch) | |
| tree | 5fdbad50c5811e449cd94a1ede8f7bca9d5f22ed /regen | |
| parent | 3a3294736cca38f33952338fa20bc02cffd21550 (diff) | |
| download | perl-8457b38f6553b1ed5f485478160b745dfe1b7fa9.tar.gz | |
Subclass utf8 warnings so can turn off individually
Diffstat (limited to 'regen')
| -rw-r--r-- | regen/warnings.pl | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/regen/warnings.pl b/regen/warnings.pl index 454035f302..fafde5b950 100644 --- a/regen/warnings.pl +++ b/regen/warnings.pl @@ -8,6 +8,9 @@ # from information hardcoded into this script (the $tree hash), plus the # template for warnings.pm in the DATA section. # +# When changing the number of warnings, the $BYTES in t/op/caller.t should +# change to correspond with the same symbol's value in lib/warnings.pm +# # With an argument of 'tree', just dump the contents of $tree and exits. # Also accepts the standard regen_lib -q and -v args. # @@ -71,7 +74,11 @@ my $tree = { 'closure' => [ 5.008, DEFAULT_OFF], 'overflow' => [ 5.008, DEFAULT_OFF], 'portable' => [ 5.008, DEFAULT_OFF], - 'utf8' => [ 5.008, DEFAULT_OFF], + 'utf8' => [ 5.008, { + 'surrogate' => [ 5.013, DEFAULT_OFF], + 'nonchar' => [ 5.013, DEFAULT_OFF], + 'non_unicode' => [ 5.013, DEFAULT_OFF], + }], 'exiting' => [ 5.008, DEFAULT_OFF], 'pack' => [ 5.008, DEFAULT_OFF], 'unpack' => [ 5.008, DEFAULT_OFF], |