Changeset 8877 for lang/perl/Alien-MeCab

Show
Ignore:
Timestamp:
04/04/08 18:35:22 (8 months ago)
Author:
daisuke
Message:

lang/perl/Alien-MeCab?; be able to explicitly specify which source to download

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Alien-MeCab/trunk/src/fetchsrc.pl

    r8875 r8877  
    3333    } 
    3434 
    35     if( ! GetOptions(\%config, "version=s") ) { 
     35    if( ! GetOptions(\%config, "version=s", "os=s") ) { 
    3636        exit 1; 
    3737    } 
     38 
     39    die "no version?!" if 
     40        (!$config{version} || $config{version} !~ /^[\d\.]+$/); 
    3841 
    3942    my $tgz   = "mecab-$config{version}.tar.gz"; 
    … …  
    4144     
    4245    my ($local, $url); 
    43     if ($^O eq 'MSWin32') { 
     46    if ($config{os} eq 'MSWin32' || $^O eq 'MSWin32') { 
    4447        $local = File::Spec->catfile('src', $exe); 
    4548        $url   = "$download_base_url/mecab/$exe";