Do not test UTF-8 locales since that the tests would require

polymorphic regexen.

p4raw-id: //depot/perl@7610

diff --git a/t/pragma/locale.t b/t/pragma/locale.t
index 42c6909..f8f4840 100755 (executable)
--- a/t/pragma/locale.t
+++ b/t/pragma/locale.t
@@ -401,6 +401,9 @@ if (-x "/usr/bin/locale" && open(LOCALES, "/usr/bin/locale -a|")) {
 
 setlocale(LC_ALL, "C");
 
+# UTF-8 and locales simply do not work yet. --jhi
+@Locale = grep {!/utf-?8/i} @Locale;
+
 @Locale = sort @Locale;
 
 debug "# Locales = @Locale\n";