diff options
| author | nanbor <nanbor@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2002-12-10 19:33:02 +0000 |
|---|---|---|
| committer | nanbor <nanbor@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2002-12-10 19:33:02 +0000 |
| commit | 69c236cba07b4204abb6badd3729c5598660c818 (patch) | |
| tree | 40e88541710790f949e4ec0eaef2401bdf5f053d /bin/PerlACE/Process.pm | |
| parent | cc500af984eb50553479de563baa58c8834069d2 (diff) | |
| download | ATCD-69c236cba07b4204abb6badd3729c5598660c818.tar.gz | |
ChangeLogTag:Tue Dec 10 13:23:37 2002 Nanbor Wang <nanbor@cs.wustl.edu>
Diffstat (limited to 'bin/PerlACE/Process.pm')
| -rw-r--r-- | bin/PerlACE/Process.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/bin/PerlACE/Process.pm b/bin/PerlACE/Process.pm index 52df7aa6c8f..62c0565cb2c 100644 --- a/bin/PerlACE/Process.pm +++ b/bin/PerlACE/Process.pm @@ -11,7 +11,7 @@ $PerlACE::Process::ExeSubDir = './'; my @new_argv = (); for(my $i = 0; $i <= $#ARGV; ++$i) { - if ($ARGV[$i] eq '-ExeSubDir') { + if ($ARGV[$i] eq '-ExeSubDir') { if (defined $ARGV[$i + 1]) { $PerlACE::Process::ExeSubDir = $ARGV[++$i].'/'; } @@ -26,6 +26,8 @@ for(my $i = 0; $i <= $#ARGV; ++$i) { } @ARGV = @new_argv; +$PerlACE::Process::WAIT_DELAY_FACTOR = $ENV{"ACE_RUNTEST_DELAY"}; + if ($OSNAME eq "MSWin32") { require PerlACE::Process_Win32; } |