X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/fb55ce6b7596b9e94f941cf83eac5ff84f760ea2..69b89a0f0bb2cbb4c1607e78c3b414bf45244bea:/ext/POSIX/t/mb.t?ds=inline

diff --git a/ext/POSIX/t/mb.t b/ext/POSIX/t/mb.t
index 053693e..c10ea1a 100644
--- a/ext/POSIX/t/mb.t
+++ b/ext/POSIX/t/mb.t
@@ -34,9 +34,13 @@ SKIP: {
     my $utf8_locale = find_utf8_ctype_locale();
     skip("no utf8 locale available", 3) unless $utf8_locale;
 
+    # Here we need to influence LC_CTYPE, but it's not enough to just
+    # set this because LC_ALL could override it. It's also not enough
+    # to delete LC_ALL because it could be used to override other
+    # variables such as LANG in the underlying test environment.
+    # Continue to set LC_CTYPE just in case...
     local $ENV{LC_CTYPE} = $utf8_locale;
-    local $ENV{LC_ALL};
-    delete $ENV{LC_ALL};
+    local $ENV{LC_ALL} = $utf8_locale;
 
     fresh_perl_like(
         'use POSIX; print &POSIX::MB_CUR_MAX',