diff options
| author | elliott_c <ocielliottc@users.noreply.github.com> | 2005-06-24 16:02:50 +0000 |
|---|---|---|
| committer | elliott_c <ocielliottc@users.noreply.github.com> | 2005-06-24 16:02:50 +0000 |
| commit | 106f0e6867d54b7f6d91b2e3cbe25c7cc345f1e1 (patch) | |
| tree | 858c95c03f62dc6b9519ab5995886f7157b382dc /bin/PerlACE | |
| parent | 065864a5b14e9bbfca5abb4c10e864d856e8dfd6 (diff) | |
| download | ATCD-106f0e6867d54b7f6d91b2e3cbe25c7cc345f1e1.tar.gz | |
ChangeLogTag: Fri Jun 24 11:02:06 2005 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'bin/PerlACE')
| -rw-r--r-- | bin/PerlACE/Process_Win32.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/bin/PerlACE/Process_Win32.pm b/bin/PerlACE/Process_Win32.pm index b644755e99a..e7bb3fe63df 100644 --- a/bin/PerlACE/Process_Win32.pm +++ b/bin/PerlACE/Process_Win32.pm @@ -190,6 +190,7 @@ sub Spawn () } } + my $state = 0; my $cmdline = ""; my $executable = ""; @@ -251,8 +252,9 @@ sub Spawn () $cmdline = "cmd /C start /B /WAIT $self->{WINCE_CTL} $pocket_device_opts -m NAME=start_test.cmd;WAIT=401000; -e" } elsif (defined $ENV{'ACE_TEST_WINDOW'}) { - $executable = $ENV{'ACE_TEST_WINDOW'}; - $cmdline = $self->Executable () . ' ' . $self->CommandLine(); + $state = ($ENV{'ACE_TEST_WINDOW'} =~ /\/k/i ? CREATE_NEW_CONSOLE : DETACHED_PROCESS); + $executable = $ENV{'ComSpec'}; + $cmdline = $ENV{'ACE_TEST_WINDOW'} . ' ' . $self->CommandLine(); } else { $executable = $self->Executable (); @@ -265,7 +267,7 @@ sub Spawn () $executable, $cmdline, 0, - 0, + $state, '.'); my $status = 0; |