summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-perltk.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-01-19 17:53:56 +0000
committerNorbert Preining <preining@logic.at>2008-01-19 17:53:56 +0000
commit485c4b69dfd36ce1c6b800935f7ce4a7aa1c95a9 (patch)
tree025edf409841a20a7763b22932edb35707ec4714 /Master/tlpkg/installer/install-menu-perltk.pl
parentaa49d07709a24a7de56034b3002f20b0eac9b38d (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.pl4
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