summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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);