From 77062c4a032c781fec864d3cd5476d02c3d6bce2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 21 Aug 2003 15:24:02 +0000
Subject: no need for NC(), doing it in translate() in any case

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

(limited to 'perl-install')

diff --git a/perl-install/common.pm b/perl-install/common.pm
index 85e5224ca..a28c3727c 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -41,14 +41,6 @@ sub N {
 }
 sub N_ { $_[0] }
 
-# translation with context, kde-like 
-sub NC {
-    $::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, @_;
-}
-
 
 sub salt {
     my ($nb) = @_;
@@ -76,6 +68,9 @@ sub translate_real {
 sub translate {
     my $s = translate_real(@_);
     $::need_utf8_i18n and c::set_tagged_utf8($s);
+
+    #- translation with context, kde-like 
+    $s =~ s/^_:.*\n//;
     $s;
 }
 
-- 
cgit v1.2.1