Merge remote-tracking branch 'origin/new/bug_7346'

This commit is contained in:
Paul Poulain 2011-12-15 18:33:55 +01:00
commit 9880b3ad05

View file

@ -49,6 +49,10 @@ my ($cmd, $lang) = @ARGV;
$cmd = lc $cmd;
if ( $cmd =~ /create|install|update/ ) {
my $installer = LangInstaller->new( $lang, $pref );
if ( $cmd !~ /create/ && $lang && not $lang ~~ $installer->{langs} ) {
print "Unsupported language: $lang\n";
exit;
}
if ( $all ) {
usage() if $cmd eq 'create';
for my $lang ( @{$installer->{langs}} ) {