# UWIN seems to loop after taint tests, just skip for now
$have_setlocale = 0 if ($^O =~ /^uwin/);
-sub LC_ALL ();
-
$a = 'abc %';
my $test_num = 0;
sub trylocale {
my $locale = shift;
return if grep { $locale eq $_ } @Locale;
- return unless setlocale(LC_ALL, $locale);
+ return unless setlocale(&POSIX::LC_ALL, $locale);
my $badutf8;
{
local $SIG{__WARN__} = sub {
}
}
-setlocale(LC_ALL, "C");
+setlocale(&POSIX::LC_ALL, "C");
if ($^O eq 'darwin') {
# Darwin 8/Mac OS X 10.4 and 10.5 have bad Basque locales: perl bug #35895,
$locales_test_number = $first_locales_test_number - 1;
debug "# Locale = $Locale\n";
- unless (setlocale(LC_ALL, $Locale)) {
+ unless (setlocale(&POSIX::LC_ALL, $Locale)) {
$setlocale_failed{$Locale} = $Locale;
next;
}
# the time these were added above this in this file.
# This also tests that locale overrides unicode_strings in the same scope for
# non-utf8 strings.
-setlocale(LC_ALL, "C");
+setlocale(&POSIX::LC_ALL, "C");
{
use locale;
use feature 'unicode_strings';