diff options
| author | Pablo Saratxaga <pablo@mandriva.com> | 2003-08-21 11:30:28 +0000 |
|---|---|---|
| committer | Pablo Saratxaga <pablo@mandriva.com> | 2003-08-21 11:30:28 +0000 |
| commit | 7fe568e2a8dd379e44f2b092adc48db604e59cab (patch) | |
| tree | 4b99615c85dbfd67445a27073406a9a20ad1f90d | |
| parent | 4b58ba35b45f31d776bc66f84071c60fb2986482 (diff) | |
| download | drakx-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
| -rw-r--r-- | perl-install/common.pm | 7 |
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, @_; } |