From aa39bf94d409f284d1c1e20bd2616a1e70edb5c8 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 21 Jan 2008 14:01:59 +0000 Subject: remove charset setting, not needed git-svn-id: svn://tug.org/texlive/trunk@6351 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/installer/install-menu-perltk.pl | 8 -------- 1 file changed, 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 () { @@ -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); -- cgit v1.2.3