diff options
| author | Pablo Saratxaga <pablo@mandriva.com> | 2003-08-21 11:15:34 +0000 |
|---|---|---|
| committer | Pablo Saratxaga <pablo@mandriva.com> | 2003-08-21 11:15:34 +0000 |
| commit | 4b58ba35b45f31d776bc66f84071c60fb2986482 (patch) | |
| tree | 5da95fe6ae8e966b807aba4815c0b2d2e9dfed7d /perl-install/common.pm | |
| parent | d5d76ee4513b6f3b35f5d6297116e1c8fc48be82 (diff) | |
| download | drakx-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.pm | 8 |
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; |