summaryrefslogtreecommitdiff
path: root/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03bind_textdomain_codeset_pp.t
diff options
context:
space:
mode:
Diffstat (limited to 'macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03bind_textdomain_codeset_pp.t')
-rw-r--r--macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03bind_textdomain_codeset_pp.t4
1 files changed, 2 insertions, 2 deletions
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03bind_textdomain_codeset_pp.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03bind_textdomain_codeset_pp.t
index b791a8d845..ee22a9f584 100644
--- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03bind_textdomain_codeset_pp.t
+++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03bind_textdomain_codeset_pp.t
@@ -43,7 +43,7 @@ Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT");
Locale::Messages::nl_putenv ("OUTPUT_CHARSET");
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 {
@@ -71,7 +71,7 @@ ok defined $bound_codeset;
ok $bound_codeset, 'ISO-8859-1';
skip $missing_locale, gettext ('January'), 'Jänner';
-ok gettext ('March'), 'März';
+skip $missing_locale, gettext ('March'), 'März';
# This will cause GNU gettext to re-load our catalog.
$bound_dir = bindtextdomain $textdomain => $locale_dir . '/../LocaleData';