From 4b58ba35b45f31d776bc66f84071c60fb2986482 Mon Sep 17 00:00:00 2001
From: Pablo Saratxaga <pablo@mandriva.com>
Date: Thu, 21 Aug 2003 11:15:34 +0000
Subject: definition and use of an NC() function (translation with context, kde
 like)

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

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

diff --git a/perl-install/common.pm b/perl-install/common.pm
index f7d4bc15c..9133aad47 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -41,6 +41,14 @@ sub N {
 }
 sub N_ { $_[0] }
 
+# translation with context, kde-like 
+sub NC {
+    my ($s) = N(@_);
+    $s =~ s/_:.*\n//;
+    $s;
+}
+
+
 sub salt {
     my ($nb) = @_;
     require devices;
-- 
cgit v1.2.1