X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/e41845ea721b5da4e3e404cf1a32b9641d3955a8..5025e5694e208b4555a9e9cce53c497a7dfd38f1:/t/op/lc.t

diff --git a/t/op/lc.t b/t/op/lc.t
index 60b3fef..69975b4 100644
--- a/t/op/lc.t
+++ b/t/op/lc.t
@@ -379,7 +379,7 @@ foreach my $turkic (0 .. 1) {
     }
 
     use locale;
-    setlocale(LC_CTYPE, $locale);
+    setlocale(&POSIX::LC_CTYPE, $locale);
 
     for my $i (0 .. 255) {
         is(lc(chr $i), $unicode_lc[$i], "In a $type UTF-8 locale, lc(chr $i) is the same as official Unicode");
@@ -406,7 +406,7 @@ SKIP: {
     my $filler_uc = ("SS" . uni_to_native("\x{39c}\x{c0}\x{c1}\x{b6}\x{178}")) x $filler_length;
 
     use locale;
-    setlocale(LC_CTYPE, $turkic_locale);
+    setlocale(&POSIX::LC_CTYPE, $turkic_locale);
 
     is (lc "IIIIIII$filler", "\x{131}\x{131}\x{131}\x{131}\x{131}\x{131}\x{131}$filler_lc",
         "lc non-UTF-8, in Turkic locale, beginning with a bunch of I's");