diff options
Diffstat (limited to 'bin/Process_Win32.pm')
-rw-r--r-- | bin/Process_Win32.pm | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/bin/Process_Win32.pm b/bin/Process_Win32.pm index 400d778c6e4..ad1197329d4 100644 --- a/bin/Process_Win32.pm +++ b/bin/Process_Win32.pm @@ -35,10 +35,26 @@ sub Kill Win32::Process::Kill ($self->[0], -1); } +sub Terminate +{ + my $self = shift; + Win32::Process::Kill ($self->[0], -1); +} + sub Wait { my $self = shift; Win32::Process::Wait ($self->[0], INFINITE); } -1;
\ No newline at end of file +sub TimedWait +{ + my $self = shift; + my $maxtime = shift; + Win32::Process::Wait ($self->[0], $maxtime); + # @@ TODO figure out if we exit because of a timeout and return -1 + # in that case. + return 0; +} + +1; |