diff options
Diffstat (limited to 'rpmdrake.pm')
-rw-r--r-- | rpmdrake.pm | 8 |
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, @_) } |