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

p4raw-id: //depot/perl@7628

diff --git a/t/pragma/locale.t b/t/pragma/locale.t
index 21f1b2c..0e11c95 100755 (executable)
--- 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 = ();