Re: Why t/lib/extutils.t is failing (was Re: [PATCH] Re: [PATCH] Re: [SPAM] Re:...

[p5sagit/p5-mst-13.2.git] / t / lib / charnames.t

diff --git a/t/lib/charnames.t b/t/lib/charnames.t
index 07c91e6..124dad0 100644 (file)
--- a/t/lib/charnames.t
+++ b/t/lib/charnames.t
@@ -117,6 +117,8 @@ sub to_bytes {
 {
   # 20001114.001       
 
+  no utf8; # so that the naked 8-bit character won't gripe under use utf8
+
   if (ord("Ä") == 0xc4) { # Try to do this only on Latin-1.
       use charnames ':full';
       my $text = "\N{LATIN CAPITAL LETTER A WITH DIAERESIS}";