1 files changed, 9 insertions, 1 deletions
diff --git a/rpmdrake.pm b/rpmdrake.pm
index 7888cac8..3c7c81e3 100644
--- a/rpmdrake.pm
+++ b/rpmdrake.pm
@@ -38,7 +38,7 @@ use curl_download;
 
 @ISA = qw(Exporter);
 @EXPORT = qw($configfile %config $mandrakeupdate_wanted_categories $already_splashed $max_info_in_descr $typical_width
-             N translate myexit readconf writeconf interactive_msg interactive_packtable interactive_list fatal_msg
+             N translate to_utf8 myexit readconf writeconf interactive_msg interactive_packtable interactive_list fatal_msg
              wait_msg remove_wait_msg but but_ slow_func mirrors choose_mirror make_url_mirror show_urpm_progress
              update_sources update_sources_interactive add_medium_and_check);
 
@@ -71,6 +71,14 @@ sub N {
     my $s = shift @_; my $t = translate($s);
     sprintf_fixutf8 $t, @_;
 }
+sub to_utf8 {
+    foreach (@_) {
+        $_ = Locale::gettext::iconv($_, undef, "UTF-8");
+        c::set_tagged_utf8($_);
+    }
+    @_;
+}
+
 sub myexit { ugtk2::exit(undef, @_) }
 
 $ENV{HOME} ||= '/root';