summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-12-15 08:54:17 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-12-15 08:54:17 +0000
commite26e8e595f1e0ba4b043e1225bfd34fb9387ee04 (patch)
tree1610447a3310b846a6140f7ecfaeb725051c10e9 /perl-install
parent9cbffa3bb05e4d836ad417c580ace845360d3bd2 (diff)
downloaddrakx-e26e8e595f1e0ba4b043e1225bfd34fb9387ee04.tar
drakx-e26e8e595f1e0ba4b043e1225bfd34fb9387ee04.tar.gz
drakx-e26e8e595f1e0ba4b043e1225bfd34fb9387ee04.tar.bz2
drakx-e26e8e595f1e0ba4b043e1225bfd34fb9387ee04.tar.xz
drakx-e26e8e595f1e0ba4b043e1225bfd34fb9387ee04.zip
get rid of sprintf_fixutf8 which is no more needed with current perl
(it has been fixed long ago: before perl 5.8.3 (MDK10.0))
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/common.pm13
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] }