aboutsummaryrefslogtreecommitdiffstats
path: root/rpmdrake.pm
diff options
context:
space:
mode:
Diffstat (limited to 'rpmdrake.pm')
-rw-r--r--rpmdrake.pm8
1 files changed, 7 insertions, 1 deletions
diff --git a/rpmdrake.pm b/rpmdrake.pm
index 254562e3..ae335e27 100644
--- a/rpmdrake.pm
+++ b/rpmdrake.pm
@@ -45,9 +45,15 @@ sub translate {
my ($s) = @_;
$s ? c::dgettext('rpmdrake', $s) : '';
}
+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 $t, @_;
+ sprintf_fixutf8 $t, @_;
}
sub myexit { ugtk2::exit(undef, @_) }