summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorgraehl <graehl@ec762483-ff6d-05da-a07a-a48fb63a330f>2010-07-26 17:00:49 +0000
committergraehl <graehl@ec762483-ff6d-05da-a07a-a48fb63a330f>2010-07-26 17:00:49 +0000
commit5f7390dfff25569611485c668ee00c216f02143b (patch)
treeb167eebc3d4f2636cbc3f056f2577f920bb9ac15
parentb9e8265aa1f9cc9a33b2c67182ea84c39066b30b (diff)
File::Basename
git-svn-id: https://ws10smt.googlecode.com/svn/trunk@420 ec762483-ff6d-05da-a07a-a48fb63a330f
-rwxr-xr-xvest/dist-vest.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/vest/dist-vest.pl b/vest/dist-vest.pl
index 3a39545b..d512dbb1 100755
--- a/vest/dist-vest.pl
+++ b/vest/dist-vest.pl
@@ -166,6 +166,7 @@ my $user = $ENV{"USER"};
-e $iniFile || die "Error: could not open $iniFile for reading\n";
open(INI, $iniFile);
+use File::Basename qw(basename);
#pass bindir, refs to vars holding bin
sub modbin {
local $_;
@@ -173,8 +174,7 @@ sub modbin {
`mkdir -p $bindir`;
for (@_) {
my $src=$$_;
- $$_="$bindir/".`basename $src`;
- chomp $$_;
+ $$_="$bindir/".basename($src);
`cp $src $$_`;
die "cp $src $$_ failed: $!" unless $? == 0;
}