summaryrefslogtreecommitdiff
path: root/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dngettext_pp.t
diff options
context:
space:
mode:
Diffstat (limited to 'macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dngettext_pp.t')
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dngettext_pp.t10
1 files changed, 5 insertions, 5 deletions
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dngettext_pp.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dngettext_pp.t
index 5f05a6155b..2b6d9f6f39 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dngettext_pp.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03dngettext_pp.t
@@ -35,7 +35,7 @@ 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 {
@@ -96,7 +96,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;
@@ -114,7 +114,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 = dngettext (additional => $strings[0], $strings[1], $_);