summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/charnames.pm2
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.