summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-07-02 03:48:39 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-07-02 03:48:39 +0000
commite4a01c5567ea5ca4cf390aee16a07e624ee57c43 (patch)
treef28194c6185fcea93f413778b2e9dcdd264786e6
parentb6f6dba2804bce103fcb0717e3a74d43e6ebc8b7 (diff)
downloaddrakx-e4a01c5567ea5ca4cf390aee16a07e624ee57c43.tar
drakx-e4a01c5567ea5ca4cf390aee16a07e624ee57c43.tar.gz
drakx-e4a01c5567ea5ca4cf390aee16a07e624ee57c43.tar.bz2
drakx-e4a01c5567ea5ca4cf390aee16a07e624ee57c43.tar.xz
drakx-e4a01c5567ea5ca4cf390aee16a07e624ee57c43.zip
disable languages which have no locales installed
-rw-r--r--move/move.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/move/move.pm b/move/move.pm
index c1458407a..5c3f9a94b 100644
--- a/move/move.pm
+++ b/move/move.pm
@@ -106,8 +106,9 @@ sub setup_userconf {
sub lang2move_clp_name {
my ($lang) = @_;
my $dir = '/usr/share/locale/' . lang::l2locale($lang);
+ -d $dir or return 'ERROR';
my $link = readlink($dir) or return;
- my ($name) = $link =~ m!image_(i18n_.*?)/! or log::l("ERROR: bad link $link for $dir"), return;
+ my ($name) = $link =~ m!image_(i18n_.*?)/! or log::l("ERROR: bad link $link for $dir"), return 'ERROR';
$name;
}