1 files changed, 3 insertions, 10 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm
index fedf68926..c88451d85 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -27,18 +27,11 @@ our $SECTORSIZE  = 512;
 #- Functions
 #-#####################################################################################
 
-
-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, @para) = shift @_; 
     $::one_message_has_been_translated ||= join(':', (caller(0))[1,2]); #- see mygtk2.pm
-    my $s = shift @_; my $t = translate($s);
-    sprintf_fixutf8 $t, @_;
+    my $t = translate($s);
+    sprintf($t, @para);
 }
 sub N_ { $_[0] }