summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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;
}