summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPablo Saratxaga <pablo@mandriva.com>2003-08-21 11:30:28 +0000
committerPablo Saratxaga <pablo@mandriva.com>2003-08-21 11:30:28 +0000
commit7fe568e2a8dd379e44f2b092adc48db604e59cab (patch)
tree4b99615c85dbfd67445a27073406a9a20ad1f90d /perl-install
parent4b58ba35b45f31d776bc66f84071c60fb2986482 (diff)
downloaddrakx-7fe568e2a8dd379e44f2b092adc48db604e59cab.tar
drakx-7fe568e2a8dd379e44f2b092adc48db604e59cab.tar.gz
drakx-7fe568e2a8dd379e44f2b092adc48db604e59cab.tar.bz2
drakx-7fe568e2a8dd379e44f2b092adc48db604e59cab.tar.xz
drakx-7fe568e2a8dd379e44f2b092adc48db604e59cab.zip
perl_checker complain avout using N(@_) so NC() has been rewritten as
a duplicate of N() plus one line
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/common.pm7
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm
index 9133aad47..85e5224ca 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -43,9 +43,10 @@ sub N_ { $_[0] }
# translation with context, kde-like
sub NC {
- my ($s) = N(@_);
- $s =~ s/_:.*\n//;
- $s;
+ $::one_message_has_been_translated ||= join(':', (caller(0))[1,2]); #- see ugtk2.pm
+ my $s = shift @_; my $t = translate($s);
+ $t =~ s/_:.*\n//;
+ sprintf_fixutf8 $t, @_;
}