Show
Ignore:
Timestamp:
01/17/08 04:22:16 (6 years ago)
Author:
drry
Message:

lang/perl/tiarra/trunk/tiarra: system() が返すのは終了ステータスでした……。うわーん。

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/tiarra/trunk/tiarra

    r4404 r4748  
    112112                chomp $svnversion; 
    113113            } elsif (-e File::Spec->catdir($dir, '.svn')) { 
    114                 use Cwd; 
    115114                (my $svndir = $dir) =~ s/'/'\''/; 
    116                 my $olddir = getcwd; 
    117115                do { 
    118                     $svndir =~ /^(.*)$/; 
    119                     chdir $1; 
    120116                    # special cleanup for taint check 
    121117                    $ENV{PATH} =~ /^(.*)$/; 
    122118                    local $ENV{PATH} = $1; 
    123                     $svnversion = system('svnversion', '--no-newline', '--committed', '.'); 
     119                    $svndir =~ /^(.*)$/; 
     120                    $svnversion = `svnversion --no-newline --committed $1`; 
    124121                }; 
    125                 $olddir =~ /^(.*)$/; 
    126                 chdir $1; 
    127122            } 
    128123            $version .= '+svn-' . $svnversion if defined $svnversion && length $svnversion;