summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-perltk.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-01-21 13:51:21 +0000
committerNorbert Preining <preining@logic.at>2008-01-21 13:51:21 +0000
commit551f6f248ab5350365ce4f707ec021f820c16689 (patch)
tree0844da1d263808530c3fbd282df9a5a960e01c0d /Master/tlpkg/installer/install-menu-perltk.pl
parente4e4edd07f3c87ab2cee948e63a70ba233547512 (diff)
fix utf8 and charset chaos ...
git-svn-id: svn://tug.org/texlive/trunk@6349 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-perltk.pl')
-rw-r--r--Master/tlpkg/installer/install-menu-perltk.pl5
1 files changed, 4 insertions, 1 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl
index c52ecd50e22..0cea5c95bad 100644
--- a/Master/tlpkg/installer/install-menu-perltk.pl
+++ b/Master/tlpkg/installer/install-menu-perltk.pl
@@ -169,7 +169,10 @@ if (($::lang ne "en") && ($::lang ne "C")) {
my ($a,$b) = split(/:/,$_);
$b =~ s/^\s*([^\s])/$1/;
$b =~ s/\s*$//;
- Encode::from_to($b, "utf8", $destenc);
+ 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);