diff options
author | Norbert Preining <preining@logic.at> | 2008-01-19 17:53:56 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-01-19 17:53:56 +0000 |
commit | 485c4b69dfd36ce1c6b800935f7ce4a7aa1c95a9 (patch) | |
tree | 025edf409841a20a7763b22932edb35707ec4714 /Master/tlpkg/installer/install-menu-perltk.pl | |
parent | aa49d07709a24a7de56034b3002f20b0eac9b38d (diff) |
for unix: automatic language selection ... try
LC_CTYPE=de_AT.latin1 perl install-tl.pl -gui
or
LC_CTYPE=it_IT.utf8 perl install-tl.pl -gui
git-svn-id: svn://tug.org/texlive/trunk@6321 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-perltk.pl')
-rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index ab58318be37..613f7c60a28 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -145,7 +145,7 @@ my %labels = ( binsys => 'Binary System(s)', symlink => 'Install symlinks to system directories', ); -if ($::lang ne "en") { +if (($::lang ne "en") && ($::lang ne "C")) { eval { require("installer/install-menu-perltk-$::lang.pl"); }; if ($@) { # couldn't find the file, continue with english @@ -156,6 +156,8 @@ if ($::lang ne "en") { $destenc = $encodings{$::lang} if defined($encodings{$::lang}); $destenc = $special_win_encodings{$::lang} if defined($special_win_encodings{$::lang}); + $destenc = $::charset if defined($::charset); + print "lang=$::lang, charset=$destenc\n"; foreach my $k (keys %translatedtext) { my $tmp = $translatedtext{$k}; # translation strings are supposed to be in utf8 |