diff options
author | brunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2001-03-02 01:07:24 +0000 |
---|---|---|
committer | brunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2001-03-02 01:07:24 +0000 |
commit | bf66ad9d30ea189118dc0ade617584a6d2870a8b (patch) | |
tree | 5f84b0356fa017edaa944c9bf019101322cdbfbd /bin | |
parent | efb7ea05036a37764f4e9f7e785fa85ad7a568f5 (diff) | |
download | ATCD-bf66ad9d30ea189118dc0ade617584a6d2870a8b.tar.gz |
ChangeLogTag:Thu Mar 1 17:02:10 2001 Darrell Brunsch <brunsch@uci.edu>
Diffstat (limited to 'bin')
-rw-r--r-- | bin/PerlACE/Process_Unix.pm | 24 | ||||
-rw-r--r-- | bin/PerlACE/Process_Win32.pm | 24 |
2 files changed, 28 insertions, 20 deletions
diff --git a/bin/PerlACE/Process_Unix.pm b/bin/PerlACE/Process_Unix.pm index b1c2a76e505..9e36e4af27d 100644 --- a/bin/PerlACE/Process_Unix.pm +++ b/bin/PerlACE/Process_Unix.pm @@ -133,24 +133,28 @@ sub Spawn () my $self = shift; if ($self->{RUNNING} == 1) { - print STDERR "ERROR: Cannot Spawn: <$self->{EXECUTABLE}> ", - "already running\n"; + print STDERR "ERROR: Cannot Spawn: <", $self->Executable (), + "> already running\n"; return -1; } if (!defined $self->{EXECUTABLE}) { print STDERR "ERROR: Cannot Spawn: No executable specified\n"; - return -1; + return -1; } - if (!-f $self->{EXECUTABLE}) { - print STDERR "ERROR: Cannot Spawn: $self->{EXECUTABLE} not found\n"; - return -1; - } + if (!$self->{IGNOREEXESUBDIR} { + if (!-f $self->Executable ()) { + print STDERR "ERROR: Cannot Spawn: <", $self->Executable (), + "> not found\n"; + return -1; + } - if (!-x $self->{EXECUTABLE}) { - print STDERR "ERROR: Cannot Spawn: $self->{EXECUTABLE} not executable\n"; - return -1; + if (!-x $self->Executable ()) { + print STDERR "ERROR: Cannot Spawn: <", $self->Executable (), + "> not executable\n"; + return -1; + } } FORK: diff --git a/bin/PerlACE/Process_Win32.pm b/bin/PerlACE/Process_Win32.pm index 373bfdc72b9..87a84c7f130 100644 --- a/bin/PerlACE/Process_Win32.pm +++ b/bin/PerlACE/Process_Win32.pm @@ -106,8 +106,8 @@ sub Spawn () my $self = shift; if ($self->{RUNNING} == 1) { - print STDERR "ERROR: Cannot Spawn: <$self->{EXECUTABLE}> ", - "already running\n"; + print STDERR "ERROR: Cannot Spawn: <", $self->Executable (), + "> already running\n"; return -1; } @@ -116,14 +116,18 @@ sub Spawn () return -1; } - if (!-f $self->{EXECUTABLE}) { - print STDERR "ERROR: Cannot Spawn: $self->{EXECUTABLE} not found\n"; - return -1; - } - - if (!-x $self->{EXECUTABLE}) { - print STDERR "ERROR: Cannot Spawn: $self->{EXECUTABLE} not executable\n"; - return -1; + if (!$self->{IGNOREEXESUBDIR} { + if (!-f $self->Executable ()) { + print STDERR "ERROR: Cannot Spawn: <", $self->Executable (), + "> not found\n"; + return -1; + } + + if (!-x $self->Executable ()) { + print STDERR "ERROR: Cannot Spawn: <", $self->Executable (), + "> not executable\n"; + return -1; + } } Win32::Process::Create ($self->{PROCESS}, |