summaryrefslogtreecommitdiff
path: root/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/04find_domain_bug.t
diff options
context:
space:
mode:
Diffstat (limited to 'macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/04find_domain_bug.t')
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/04find_domain_bug.t7
1 files changed, 4 insertions, 3 deletions
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/04find_domain_bug.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/04find_domain_bug.t
index 87f05c0144..e3255ea474 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/04find_domain_bug.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/04find_domain_bug.t
@@ -36,7 +36,8 @@ BEGIN {
Locale::Messages::nl_putenv ("LC_MESSAGES=en_US");
Locale::Messages::nl_putenv ("OUTPUT_CHARSET=iso-8859-1");
- POSIX::setlocale (POSIX::LC_ALL() => '');
+ Locale::Messages::setlocale (POSIX::LC_ALL() => '');
+ Locale::Messages->select_package ('gettext_pp');
}
# Make sure that LocaleData/ can befound.
@@ -52,10 +53,10 @@ Locale::Messages::nl_putenv ("LC_ALL=de_AT");
Locale::Messages::nl_putenv ("LANG=de_AT");
Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
-my $missing_locale = POSIX::setlocale (POSIX::LC_ALL() => '') ?
+my $missing_locale = Locale::Messages::setlocale (POSIX::LC_ALL() => '') ?
'' : 'locale de_AT missing';
-my $locale = POSIX::setlocale (POSIX::LC_ALL() => '');
+my $locale = Locale::Messages::setlocale (POSIX::LC_ALL() => '');
my $translation = Locale::TextDomain::__("February");
skip $missing_locale, "Feber" eq $translation;