diff options
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.t | 7 |
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; |