diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-06-15 12:09:55 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-06-15 18:29:01 -0600 |
| commit | 0ae19c2925f45d75bbc0f8b7ec3a854578a66eda (patch) | |
| tree | 55b57a0109b3ada46bdca87dd0cdac2d4788106f /lib | |
| parent | b59ae8bbf182ce00d4660c21e9672371448543a4 (diff) | |
| download | perl-0ae19c2925f45d75bbc0f8b7ec3a854578a66eda.tar.gz | |
charnames: Check for malformed utf8
The new warnings categories in 5.14 allow for turning off warnings
for everything but malformed utf8; instead of all or nothing.
Allow malformed warnings.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/charnames.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/charnames.pm b/lib/charnames.pm index 95bbc73077..5cda64cc51 100644 --- a/lib/charnames.pm +++ b/lib/charnames.pm @@ -468,7 +468,7 @@ sub alias (@) # Set up a single alias $value = CORE::hex $1; } if ($value =~ $decimal_qr) { - no warnings 'utf8'; # Allow even illegal characters + no warnings qw(non_unicode surrogate nonchar); # Allow any non-malformed $^H{charnames_ord_aliases}{$name} = pack("U", $value); # Use a canonical form. |