summaryrefslogtreecommitdiffstats
path: root/perl-install/common.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-08-21 15:24:02 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-08-21 15:24:02 +0000
commit77062c4a032c781fec864d3cd5476d02c3d6bce2 (patch)
treeee9e073c8804205638732e4146d7854647ff872c /perl-install/common.pm
parentd261c4ef157a49b4866ff939d860c13fc3a0da15 (diff)
downloaddrakx-77062c4a032c781fec864d3cd5476d02c3d6bce2.tar
drakx-77062c4a032c781fec864d3cd5476d02c3d6bce2.tar.gz
drakx-77062c4a032c781fec864d3cd5476d02c3d6bce2.tar.bz2
drakx-77062c4a032c781fec864d3cd5476d02c3d6bce2.tar.xz
drakx-77062c4a032c781fec864d3cd5476d02c3d6bce2.zip
no need for NC(), doing it in translate() in any case
Diffstat (limited to 'perl-install/common.pm')
-rw-r--r--perl-install/common.pm11
1 files changed, 3 insertions, 8 deletions
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;
}