diff options
-rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 8 |
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); |