diff options
| -rwxr-xr-x | vest/dist-vest.pl | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/vest/dist-vest.pl b/vest/dist-vest.pl index aed74a3f..f537e8b0 100755 --- a/vest/dist-vest.pl +++ b/vest/dist-vest.pl @@ -58,7 +58,7 @@ my $oracleb=20; my $dirargs=''; my $density_prune; my $usefork; - +my $cpbin=1; # Process command-line options Getopt::Long::Configure("no_auto_abbrev"); if (GetOptions( @@ -165,6 +165,18 @@ my $user = $ENV{"USER"}; -e $iniFile || die "Error: could not open $iniFile for reading\n"; open(INI, $iniFile); +#pass bindir, refs to vars holding bin +sub modbin { + local $_; + my $bindir=shift; + `mkdir -p $bindir`; + for (@_) { + my $src=$$_; + $$_="$bindir/".`basename $src`; + `cp $src $$_`; + die ""cp $src $$_" failed: $!" unless $? == 0; + } +} sub dirsize { opendir ISEMPTY,$_[0]; return scalar(readdir(ISEMPTY))-1; @@ -178,6 +190,7 @@ if ($dryrun){ } else { -e $dir || mkdir $dir; mkdir "$dir/hgs"; + modbin($bindir,\$cdec,\$SCORER,\$MAPINPUT,\$MAPPER,\$REDUCER,\$parallelize) if $cpbin; mkdir "$dir/scripts"; my $cmdfile="$dir/rerun-vest.sh"; open CMD,'>',$cmdfile; |