File::Basename

git-svn-id: https://ws10smt.googlecode.com/svn/trunk@420 ec762483-ff6d-05da-a07a-a48fb63a330f

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;
     }