From 0ae19c2925f45d75bbc0f8b7ec3a854578a66eda Mon Sep 17 00:00:00 2001
From: Karl Williamson <public@khwilliamson.com>
Date: Wed, 15 Jun 2011 12:09:55 -0600
Subject: [PATCH] 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.
---
 lib/charnames.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/charnames.pm b/lib/charnames.pm
index 95bbc73..5cda64c 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.
-- 
2.7.4