diff options
| author | brunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1998-06-16 22:46:08 +0000 |
|---|---|---|
| committer | brunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1998-06-16 22:46:08 +0000 |
| commit | 33c8282ca642d3a19e374c88b19af9ccc2abac4e (patch) | |
| tree | 845cf3d2003d3c1d6712a46d078d8364937d4c10 /bin | |
| parent | e034e53a3e59207390aae460f49b77f198d2b50b (diff) | |
| download | ATCD-33c8282ca642d3a19e374c88b19af9ccc2abac4e.tar.gz | |
Allowed a switch for not bringing up a new console.
Diffstat (limited to 'bin')
| -rw-r--r-- | bin/Process_Win32.pm | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/bin/Process_Win32.pm b/bin/Process_Win32.pm index bf850022d03..3e78a766819 100644 --- a/bin/Process_Win32.pm +++ b/bin/Process_Win32.pm @@ -4,13 +4,25 @@ use Win32::Process; $EXE_EXT = ".exe"; +$newwindow = "yes"; + sub Create { my $name = shift; my $args = shift; my $self = []; + + if ($newwindow eq "no") + { + my $console = 0; + } + else + { + my $console = CREATE_NEW_CONSOLE; + } + Win32::Process::Create ($self->[0], $name, $name." ".$args, 0, - CREATE_NEW_CONSOLE, "."); + $console, "."); bless $self; } |