Changeset 24116 for lang/perl/MENTA

Show
Ignore:
Timestamp:
11/18/08 18:10:23 (5 years ago)
Author:
tokuhirom
Message:

強制上書きオプションつけた

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/MENTA/trunk/bin/install-lib.pl

    r24114 r24116  
    2222my $dstdir; 
    2323my $pkg; 
     24my $overwrite = 0; 
    2425my $cwd = getcwd(); 
    2526 
    … …  
    3233    # process args 
    3334    GetOptions( 
    34         "version=f", \$target_version, 
     35        "version=f" => \$target_version, 
     36        "overwrite" => \$overwrite, 
    3537    ); 
    3638    unless (@ARGV == 2) { 
    … …  
    7375        return; 
    7476    } 
    75     { 
     77    unless ($overwrite) { 
    7678        my $path = $pkg; 
    7779        $path =~ s{::}{/}g;