aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--rpmdrake.pm26
1 files changed, 2 insertions, 24 deletions
diff --git a/rpmdrake.pm b/rpmdrake.pm
index 530f607f..485e016a 100644
--- a/rpmdrake.pm
+++ b/rpmdrake.pm
@@ -35,6 +35,7 @@ use URPM::Resolve;
use strict;
use log;
use c;
+use common;
use curl_download;
@@ -48,10 +49,7 @@ our @EXPORT = qw(
$tree_mode
$tree_flat
$typical_width
- N
- N_
distro_type
- translate
to_utf8
myexit
readconf
@@ -77,6 +75,7 @@ our @EXPORT = qw(
strip_first_underscore
);
our $typical_width;
+unshift @::textdomains, 'rpmdrake', 'urpmi';
eval { require ugtk2; ugtk2->import(qw(:all)) };
if ($@) {
@@ -127,27 +126,6 @@ $urpm::download::PROMPT_PROXY = new rpmdrake::prompt(
[ 0, 1 ],
);
-sub translate {
- my ($s) = @_;
- my $r = '';
- if ($s) {
- $r = c::dgettext('rpmdrake', $s);
- $r eq $s and $r = Locale::gettext::iconv(c::dgettext('urpmi', $s), undef, "UTF-8");
- c::set_tagged_utf8($r);
- }
- $r;
-}
-sub sprintf_fixutf8 {
- my $need_upgrade;
- $need_upgrade |= to_bool(c::is_tagged_utf8($_)) + 1 foreach @_;
- if ($need_upgrade == 3) { c::upgrade_utf8($_) foreach @_ }
- sprintf shift, @_;
-}
-sub N {
- my $s = shift @_; my $t = translate($s);
- sprintf_fixutf8 $t, @_;
-}
-sub N_ { $_[0] }
sub to_utf8 {
foreach (@_) {
$_ = Locale::gettext::iconv($_, undef, "UTF-8");