diff options
| author | Norbert Preining <preining@logic.at> | 2008-01-21 13:51:21 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2008-01-21 13:51:21 +0000 |
| commit | 551f6f248ab5350365ce4f707ec021f820c16689 (patch) | |
| tree | 0844da1d263808530c3fbd282df9a5a960e01c0d /Master/tlpkg | |
| parent | e4e4edd07f3c87ab2cee948e63a70ba233547512 (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')
| -rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 5 |
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); |