diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-03-03 18:02:03 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-03-03 19:26:17 -0700 |
| commit | 36c2430c54431c750134fb5add2327486301d66f (patch) | |
| tree | eafc92ef18b75f195e817b7d2795b77307b75fcd /lib/Unicode | |
| parent | f3d50ac98736b7b6864856ac20359ed14bee064f (diff) | |
| download | perl-36c2430c54431c750134fb5add2327486301d66f.tar.gz | |
UCD.pm: Use subclassed warnings
5.14 subclasses some UTF8 warnings, so that they can be turned off
more precisely.
Diffstat (limited to 'lib/Unicode')
| -rw-r--r-- | lib/Unicode/UCD.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Unicode/UCD.pm b/lib/Unicode/UCD.pm index 86aaa74664..475f2832c5 100644 --- a/lib/Unicode/UCD.pm +++ b/lib/Unicode/UCD.pm @@ -2,6 +2,7 @@ package Unicode::UCD; use strict; use warnings; +no warnings 'surrogate'; # surrogates can be inputs to this use charnames (); our $VERSION = '0.32'; @@ -776,7 +777,7 @@ sub compexcl { croak __PACKAGE__, "::compexcl: unknown code '$arg'" unless defined $code; - no warnings "utf8"; # So works on surrogates and non-Unicode code points + no warnings "non_unicode"; # So works on non-Unicode code points return chr($code) =~ /\p{Composition_Exclusion}/; } |