diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2004-07-02 03:48:39 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2004-07-02 03:48:39 +0000 |
commit | e4a01c5567ea5ca4cf390aee16a07e624ee57c43 (patch) | |
tree | f28194c6185fcea93f413778b2e9dcdd264786e6 | |
parent | b6f6dba2804bce103fcb0717e3a74d43e6ebc8b7 (diff) | |
download | drakx-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.pm | 3 |
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; } |