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/common.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'perl-install/common.pm')

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