From 36c2430c54431c750134fb5add2327486301d66f Mon Sep 17 00:00:00 2001
From: Karl Williamson <public@khwilliamson.com>
Date: Thu, 3 Mar 2011 18:02:03 -0700
Subject: [PATCH] UCD.pm: Use subclassed warnings

5.14 subclasses some UTF8 warnings, so that they can be turned off
more precisely.
---
 lib/Unicode/UCD.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/Unicode/UCD.pm b/lib/Unicode/UCD.pm
index 86aaa74..475f283 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}/;
 }
 
-- 
2.7.4