diff options
-rwxr-xr-x | vest/dist-vest.pl | 4 |
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; } |