View | Details | Raw Unified | Return to bug 7346
Collapse All | Expand All

(-)a/misc/translator/translate (-1 / +4 lines)
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
- 

Return to bug 7346