From 2e6717a71f242051777a22b9fc3cc7ef8cc217c3 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Mon, 28 May 2007 14:10:05 +0000
Subject: (to_utf8) tell perl this is now UTF-8 (spotted by #31067 and also
 seen before in rpmdrake)

---
 perl-install/NEWS      | 1 +
 perl-install/common.pm | 4 +++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/perl-install/NEWS b/perl-install/NEWS
index a0cd8c936..0281f29f0 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,4 @@
+- fix some UTF8 issue (#31067)
 - hw support:
   o handle snd-cs5530 driver
 - progress bar wait_message: ensure it doesn't go crazy when asked to update
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
-- 
cgit v1.2.1