diff options
Diffstat (limited to 'macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcngettext_xs.t')
-rw-r--r-- | macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcngettext_xs.t | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcngettext_xs.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcngettext_xs.t index cc8a7f32c9..b71bd57af7 100644 --- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcngettext_xs.t +++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dcngettext_xs.t @@ -34,7 +34,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C"); Locale::Messages::nl_putenv ("LANG=C"); Locale::Messages::nl_putenv ("LC_MESSAGES=C"); Locale::Messages::nl_putenv ("OUTPUT_CHARSET=iso-8859-1"); -POSIX::setlocale (POSIX::LC_ALL() => ''); +Locale::Messages::setlocale (POSIX::LC_ALL() => ''); my $locale_dir = $0; $locale_dir =~ s,[^\\/]+$,, or $locale_dir = '.'; @@ -54,7 +54,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C"); Locale::Messages::nl_putenv ("LANG=C"); Locale::Messages::nl_putenv ("LC_MESSAGES=C"); -POSIX::setlocale (POSIX::LC_ALL() => ''); +Locale::Messages::setlocale (POSIX::LC_ALL() => ''); my $bound_dir = bindtextdomain existing => $locale_dir; @@ -73,7 +73,7 @@ Locale::Messages::nl_putenv ("LANG=de_AT"); Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT"); my $missing_locale = 'locale de_AT missing'; -my $setlocale = POSIX::setlocale (POSIX::LC_ALL() => ''); +my $setlocale = Locale::Messages::setlocale (POSIX::LC_ALL() => ''); if ($setlocale && $setlocale =~ /(?:austria|at)/i) { $missing_locale = ''; } else { @@ -95,7 +95,7 @@ Locale::Messages::nl_putenv ("LC_ALL=C"); Locale::Messages::nl_putenv ("LANG=C"); Locale::Messages::nl_putenv ("LC_MESSAGES=C"); -POSIX::setlocale (POSIX::LC_ALL() => ''); +Locale::Messages::setlocale (POSIX::LC_ALL() => ''); $bound_dir = bindtextdomain additional => $locale_dir; @@ -112,7 +112,7 @@ Locale::Messages::nl_putenv ("LC_ALL=de_AT"); Locale::Messages::nl_putenv ("LANG=de_AT"); Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT"); -POSIX::setlocale (POSIX::LC_ALL() => $setlocale) unless $missing_locale; +Locale::Messages::setlocale (POSIX::LC_ALL() => $setlocale) unless $missing_locale; for (0 .. 40) { my $translation = dcngettext (additional => $strings[0], $strings[1], $_, LC_MESSAGES); |