summaryrefslogtreecommitdiffstats
path: root/perl-install/common.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2007-05-28 14:10:05 +0000
committerThierry Vignaud <tv@mandriva.org>2007-05-28 14:10:05 +0000
commit2e6717a71f242051777a22b9fc3cc7ef8cc217c3 (patch)
treea3ccd7491d2f78f4e6e3b9d14de9c2c73926ffae /perl-install/common.pm
parentdc730e080197bb1698eaa6adba9093ec1cbc552b (diff)
downloaddrakx-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.pm4
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