diff options
| -rwxr-xr-x | t/pragma/locale.t | 13 |
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 = (); |