From 7928695272b000de7142b91e05959a8fab6b1d2a Mon Sep 17 00:00:00 2001
From: Chris Dyer <cdyer@allegro.clab.cs.cmu.edu>
Date: Wed, 14 Nov 2012 20:33:51 -0500
Subject: major mert clean up, stuff for simple system demo

---
 dpmert/parallelize.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'dpmert/parallelize.pl')

diff --git a/dpmert/parallelize.pl b/dpmert/parallelize.pl
index 7d0365cc..d2ebaeea 100755
--- a/dpmert/parallelize.pl
+++ b/dpmert/parallelize.pl
@@ -40,7 +40,7 @@ my $stay_alive;      # dont let server die when having zero clients
 my $joblist = "";
 my $errordir="";
 my $multiline;
-my @files_to_stage;
+my $workdir = '.';
 my $numnodes = 8;
 my $user = $ENV{"USER"};
 my $pmem = "9g";
@@ -128,7 +128,7 @@ unless (GetOptions(
       "recycle-clients" => \$recycle_clients,
       "error-dir=s" => \$errordir,
       "multi-line" => \$multiline,
-      "file=s" => \@files_to_stage,
+      "workdir=s" => \$workdir,
       "use-fork" => \$use_fork,
       "verbose" => \$verbose,
       "jobs=i" => \$numnodes,
@@ -363,7 +363,7 @@ sub launch_job_fork {
 }
 
 sub get_temp_script {
-  my ($fh, $filename) = tempfile( "workXXXX", SUFFIX => '.sh');
+  my ($fh, $filename) = tempfile( "$workdir/workXXXX", SUFFIX => '.sh');
   return ($fh, $filename);
 }
 
-- 
cgit v1.2.3