diff options
| author | Norbert Preining <preining@logic.at> | 2008-05-08 23:52:19 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2008-05-08 23:52:19 +0000 |
| commit | 4995e66a9fc9c535b4cf23a7ca354313c1a5283f (patch) | |
| tree | 8322f713ff609176776d48e65a5a7975b6f72a31 | |
| parent | d68457536da556b04661448451f53ce8df695a2e (diff) | |
use LC_MESSAGES instead of LC_CTYPE ...
git-svn-id: svn://tug.org/texlive/trunk@7963 c570f23f-e606-0410-a88d-b1316a301751
| -rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index 835dd455b36..2785960538b 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -49,7 +49,7 @@ if (defined($::opt_lang)) { require POSIX; import POSIX qw/locale_h/; # now we try to deduce $::lang - my $loc = setlocale(&POSIX::LC_CTYPE); + my $loc = setlocale(&POSIX::LC_MESSAGES); my ($lang,$area,$codeset); if ($loc =~ m/^([^_.]*)(_([^.]*))?(\.([^@]*))?(@.*)?$/) { $lang = defined($1)?$1:""; |