From 7fe568e2a8dd379e44f2b092adc48db604e59cab Mon Sep 17 00:00:00 2001
From: Pablo Saratxaga <pablo@mandriva.com>
Date: Thu, 21 Aug 2003 11:30:28 +0000
Subject: perl_checker complain avout using N(@_) so NC() has been rewritten as
 a duplicate of N() plus one line

---
 perl-install/common.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'perl-install/common.pm')

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, @_;
 }
 
 
-- 
cgit v1.2.1