summaryrefslogtreecommitdiff
path: root/bin/Process_Win32.pm
diff options
context:
space:
mode:
authorbrunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>1998-06-16 22:46:08 +0000
committerbrunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>1998-06-16 22:46:08 +0000
commit33c8282ca642d3a19e374c88b19af9ccc2abac4e (patch)
tree845cf3d2003d3c1d6712a46d078d8364937d4c10 /bin/Process_Win32.pm
parente034e53a3e59207390aae460f49b77f198d2b50b (diff)
downloadATCD-33c8282ca642d3a19e374c88b19af9ccc2abac4e.tar.gz
Allowed a switch for not bringing up a new console.
Diffstat (limited to 'bin/Process_Win32.pm')
-rw-r--r--bin/Process_Win32.pm14
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;
}