diff options
Diffstat (limited to 'macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03gettext_pp.t')
-rw-r--r-- | macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03gettext_pp.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03gettext_pp.t b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03gettext_pp.t index f8dfcdec3a..4e9f6b8ecf 100644 --- a/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03gettext_pp.t +++ b/macros/texinfo/texinfo/tp/maintain/lib/libintl-perl/tests/03gettext_pp.t @@ -41,7 +41,7 @@ Locale::Messages::nl_putenv ("LC_MESSAGES=de_AT"); Locale::Messages::nl_putenv ("OUTPUT_CHARSET=iso-8859-1"); 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 { @@ -64,7 +64,7 @@ ok defined $bound_domain; ok $bound_domain, $textdomain; # Default case. -ok gettext ('December'), 'Dezember'; +skip $missing_locale, gettext ('December'), 'Dezember'; # msgid eq msgstr. ok gettext ('September'), 'September'; |