summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-01-21 14:01:59 +0000
committerNorbert Preining <preining@logic.at>2008-01-21 14:01:59 +0000
commitaa39bf94d409f284d1c1e20bd2616a1e70edb5c8 (patch)
tree6034cd1ddd14d2fb7cf50dd3caf1c6f713c0ab91 /Master
parent237ebef5a9c81d83e962f1ce25ce31996d34f80b (diff)
remove charset setting, not needed
git-svn-id: svn://tug.org/texlive/trunk@6351 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r--Master/tlpkg/installer/install-menu-perltk.pl8
1 files changed, 0 insertions, 8 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl
index 0cea5c95bad..154a1c190f5 100644
--- a/Master/tlpkg/installer/install-menu-perltk.pl
+++ b/Master/tlpkg/installer/install-menu-perltk.pl
@@ -35,7 +35,6 @@ my $return = $MENU_INSTALL;
require Tk;
require Tk::Dialog;
require Tk::PNG;
-require Encode;
my $mw;
@@ -154,12 +153,6 @@ if (($::lang ne "en") && ($::lang ne "C")) {
warn "Couldn't find language file installer/lang/perltk-$::lang.pl: $!\nContinuing in English!\n";
} else {
# merge the translated strings into the text string
- my $destenc = "latin1";
- $destenc = $encodings{$::lang} if defined($encodings{$::lang});
- $destenc = $special_win_encodings{$::lang}
- if defined($special_win_encodings{$::lang});
- $destenc = $::charset if defined($::charset);
- tllog($::LOG_DEBUG, "lang/charset settings: lang=$::lang, charset=$destenc\n");
open(LANG,"<$::installerdir/tlpkg/installer/lang/perltk-$::lang");
my %trans;
while (<LANG>) {
@@ -172,7 +165,6 @@ if (($::lang ne "en") && ($::lang ne "C")) {
if (!utf8::decode($b)) {
warn("decoding string to utf8 didn't work:$b\n");
}
- #Encode::from_to($b, "utf8", $destenc);
$trans{"$a"} = "$b";
}
close(LANG);