Disable only the tests 99 and 166 for UTF-8 locales.

p4raw-id: //depot/perl@7628

1 files changed, 9 insertions, 4 deletions

diff --git a/t/pragma/locale.t b/t/pragma/locale.t
index 21f1b2c7ea..0e11c956d6 100755
--- a/t/pragma/locale.t
+++ b/t/pragma/locale.t
@@ -405,8 +405,7 @@ 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;
+sub utf8locale { $_[0] =~ /utf-?8/i }
 
 @Locale = sort @Locale;
 
@@ -498,7 +497,10 @@ foreach $Locale (@Locale) {
 
 	# Test \w.
     
-	{
+	if (utf8locale($Locale)) {
+	    # Until the polymorphic regexen arrive.
+	    debug "# skipping UTF-8 locale '$Locale'\n";
+	} else {
 	    my $word = join('', @Neoalpha);
 
 	    $word =~ /^(\w+)$/;
@@ -680,7 +682,10 @@ foreach $Locale (@Locale) {
     # Does lc of an UPPER (if different from the UPPER) match
     # case-insensitively the UPPER, and does the UPPER match
     # case-insensitively the lc of the UPPER.  And vice versa.
-    {
+    if (utf8locale($Locale)) {
+        # Until the polymorphic regexen arrive.
+        debug "# skipping UTF-8 locale '$Locale'\n";
+    } else {
 	use locale;
 
 	my @f = ();