From e26e8e595f1e0ba4b043e1225bfd34fb9387ee04 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 15 Dec 2005 08:54:17 +0000 Subject: 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)) --- perl-install/common.pm | 13 +++---------- 1 file changed, 3 insertions(+), 10 deletions(-) (limited to 'perl-install/common.pm') 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] } -- cgit v1.2.1