aboutsummaryrefslogtreecommitdiffstats
path: root/rpmdrake.pm
diff options
context:
space:
mode:
Diffstat (limited to 'rpmdrake.pm')
-rw-r--r--rpmdrake.pm10
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';