summaryrefslogtreecommitdiffstats
path: root/perl-install/common.pm
diff options
context:
space:
mode:
authorPablo Saratxaga <pablo@mandriva.com>2003-08-21 11:15:34 +0000
committerPablo Saratxaga <pablo@mandriva.com>2003-08-21 11:15:34 +0000
commit4b58ba35b45f31d776bc66f84071c60fb2986482 (patch)
tree5da95fe6ae8e966b807aba4815c0b2d2e9dfed7d /perl-install/common.pm
parentd5d76ee4513b6f3b35f5d6297116e1c8fc48be82 (diff)
downloaddrakx-4b58ba35b45f31d776bc66f84071c60fb2986482.tar
drakx-4b58ba35b45f31d776bc66f84071c60fb2986482.tar.gz
drakx-4b58ba35b45f31d776bc66f84071c60fb2986482.tar.bz2
drakx-4b58ba35b45f31d776bc66f84071c60fb2986482.tar.xz
drakx-4b58ba35b45f31d776bc66f84071c60fb2986482.zip
definition and use of an NC() function (translation with context, kde like)
Diffstat (limited to 'perl-install/common.pm')
-rw-r--r--perl-install/common.pm8
1 files changed, 8 insertions, 0 deletions
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;