Lines 49-54
my ($cmd, $lang) = @ARGV;
Link Here
|
49 |
$cmd = lc $cmd; |
49 |
$cmd = lc $cmd; |
50 |
if ( $cmd =~ /create|install|update/ ) { |
50 |
if ( $cmd =~ /create|install|update/ ) { |
51 |
my $installer = LangInstaller->new( $lang, $pref ); |
51 |
my $installer = LangInstaller->new( $lang, $pref ); |
|
|
52 |
if ( $cmd !~ /create/ && $lang && not $lang ~~ $installer->{langs} ) { |
53 |
print "Unsupported language: $lang\n"; |
54 |
exit; |
55 |
} |
52 |
if ( $all ) { |
56 |
if ( $all ) { |
53 |
usage() if $cmd eq 'create'; |
57 |
usage() if $cmd eq 'create'; |
54 |
for my $lang ( @{$installer->{langs}} ) { |
58 |
for my $lang ( @{$installer->{langs}} ) { |
55 |
- |
|
|