diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2007-05-28 14:10:05 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2007-05-28 14:10:05 +0000 |
| commit | 2e6717a71f242051777a22b9fc3cc7ef8cc217c3 (patch) | |
| tree | a3ccd7491d2f78f4e6e3b9d14de9c2c73926ffae /perl-install/common.pm | |
| parent | dc730e080197bb1698eaa6adba9093ec1cbc552b (diff) | |
| download | drakx-2e6717a71f242051777a22b9fc3cc7ef8cc217c3.tar drakx-2e6717a71f242051777a22b9fc3cc7ef8cc217c3.tar.gz drakx-2e6717a71f242051777a22b9fc3cc7ef8cc217c3.tar.bz2 drakx-2e6717a71f242051777a22b9fc3cc7ef8cc217c3.tar.xz drakx-2e6717a71f242051777a22b9fc3cc7ef8cc217c3.zip | |
(to_utf8) tell perl this is now UTF-8 (spotted by #31067 and also seen
before in rpmdrake)
Diffstat (limited to 'perl-install/common.pm')
| -rw-r--r-- | perl-install/common.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm index 9d8923096..d297225af 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -78,7 +78,9 @@ sub from_utf8 { } sub to_utf8 { my ($s) = @_; - Locale::gettext::iconv($s, undef, "utf-8"); #- undef = locale charmap = nl_langinfo(CODESET) + my $str = Locale::gettext::iconv($s, undef, "utf-8"); #- undef = locale charmap = nl_langinfo(CODESET) + c::set_tagged_utf8($str); + $str; } #- This is needed because text printed by Gtk2 will always be encoded |