From 5f7390dfff25569611485c668ee00c216f02143b Mon Sep 17 00:00:00 2001
From: graehl <graehl@ec762483-ff6d-05da-a07a-a48fb63a330f>
Date: Mon, 26 Jul 2010 17:00:49 +0000
Subject: File::Basename

git-svn-id: https://ws10smt.googlecode.com/svn/trunk@420 ec762483-ff6d-05da-a07a-a48fb63a330f
---
 vest/dist-vest.pl | 4 ++--
 1 file 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;
     }
-- 
cgit v1.2.3