parallelize vest on large shared memory machines using fork and make

1 files changed, 4 insertions, 10 deletions

diff --git a/vest/parallelize.pl b/vest/parallelize.pl
index daaf9b2f..cb5406ec 100755
--- a/vest/parallelize.pl
+++ b/vest/parallelize.pl
@@ -21,12 +21,12 @@
 my $SCRIPT_DIR; BEGIN { use Cwd qw/ abs_path /; use File::Basename; $SCRIPT_DIR = dirname(abs_path($0)); push @INC, $SCRIPT_DIR, "$SCRIPT_DIR/../environment"; }
 use LocalConfig;
 
+use Cwd qw/ abs_path cwd getcwd /; 
 use File::Temp qw/ tempfile /;
 use Getopt::Long;
 use IPC::Open2;
 use strict;
 use POSIX ":sys_wait_h";
-use Cwd qw(getcwd);
 
 my $tailn=5; # +0 = concatenate all the client logs.  5 = last 5 lines
 my $recycle_clients;    # spawn new clients when previous ones terminate
@@ -58,12 +58,6 @@ sub debug {
         print STDERR "DEBUG: $filename($line): ",join(' ',@_),"\n";
     }
 }
-sub abspath($) {
-    my $p=shift;
-    my $a=`readlink -f $p`;
-    chomp $a;
-    $a
-}
 my $is_shell_special=qr.[ \t\n\\><|&;"'`~*?{}$!()].;
 my $shell_escape_in_quote=qr.[\\"\$`!].;
 sub escape_shell {
@@ -116,7 +110,7 @@ sub extend_path($$;$$) {
     return $base.$ext;
 }
 
-my $abscwd=abspath(&getcwd);
+my $abscwd=abs_path(&getcwd);
 sub print_help;
 
 my $use_fork;
@@ -152,7 +146,7 @@ if ($no_which) {
     chomp $cmd;
     die "$prog not found - $cmd" unless $cmd;
 }
-#$cmd=abspath($cmd);
+#$cmd=abs_path($cmd);
 for my $arg (@ARGV) {
     $cmd .= " ".escape_shell($arg);
 }
@@ -180,7 +174,7 @@ if ($errordir) {
     print SF "$cdcmd$cmd\n";
     close SF;
     chmod 0755,$scriptfile;
-    $errordir=abspath($errordir);
+    $errordir=abs_path($errordir);
     &verbose("-e dir: $errordir");
 }