summaryrefslogtreecommitdiffstats
path: root/perl-install/common.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-08-28 21:16:32 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-08-28 21:16:32 +0000
commitff872004f6d5f202a6a8cd418bad3b2458d2ed66 (patch)
tree984a3ea576f9090b2aad069550b65a6595c04d4c /perl-install/common.pm
parentc047aee8e84b723f6910defab8b0de8063502490 (diff)
downloaddrakx-backup-do-not-use-ff872004f6d5f202a6a8cd418bad3b2458d2ed66.tar
drakx-backup-do-not-use-ff872004f6d5f202a6a8cd418bad3b2458d2ed66.tar.gz
drakx-backup-do-not-use-ff872004f6d5f202a6a8cd418bad3b2458d2ed66.tar.bz2
drakx-backup-do-not-use-ff872004f6d5f202a6a8cd418bad3b2458d2ed66.tar.xz
drakx-backup-do-not-use-ff872004f6d5f202a6a8cd418bad3b2458d2ed66.zip
no_comment
Diffstat (limited to 'perl-install/common.pm')
-rw-r--r--perl-install/common.pm5
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm
index 1be6d4f95..851cf6971 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -346,7 +346,10 @@ sub translate {
require lang;
foreach (split ':', $lang) {
lang::load_po($_) unless defined $po::I18N::{$_};
- return ${$po::I18N::{$_}}{$s} || $s if %{$po::I18N::{$_}};
+ if (%{$po::I18N::{$_}}) {
+ return if $s eq '_I18N_';
+ return ${$po::I18N::{$_}}{$s} || $s
+ }
}
$s;
}