fold_grind.t: Use LC_CTYPE, not LC_ALL

[perl5.git] / t / re / fold_grind.t

diff --git a/t/re/fold_grind.t b/t/re/fold_grind.t
index 275f0e2..57c61bd 100644 (file)
--- a/t/re/fold_grind.t
+++ b/t/re/fold_grind.t
@@ -413,7 +413,7 @@ sub pairs (@) {
 
 my @charsets = qw(d u a aa);
 if($Config{d_setlocale}) {
-    my $current_locale = POSIX::setlocale( &POSIX::LC_ALL, "C") // "";
+    my $current_locale = POSIX::setlocale( &POSIX::LC_CTYPE, "C") // "";
     if ($current_locale eq 'C') {
         require locale; import locale;