From d633988f7ff0eb765537e22e4348d3d99f0a8539 Mon Sep 17 00:00:00 2001
From: nanbor <nanbor@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>
Date: Thu, 17 Jun 1999 05:37:24 +0000
Subject: Fixed the child process return status code.

---
 bin/Process_Win32.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'bin')

diff --git a/bin/Process_Win32.pm b/bin/Process_Win32.pm
index 30d557e0c68..7caca7c494b 100644
--- a/bin/Process_Win32.pm
+++ b/bin/Process_Win32.pm
@@ -20,10 +20,10 @@ sub Create
     $console = 0;
   }
 
-  Win32::Process::Create ($self->[0], $name, $name." ".$args, 0, 
+  Win32::Process::Create ($self->[0], $name, $name." ".$args, 0,
                           $console, ".");
   bless $self;
-}  
+}
 
 sub Kill
 {
@@ -48,9 +48,9 @@ sub TimedWait
   my $self = shift;
   my $maxtime = shift;
   Win32::Process::Wait ($self->[0], $maxtime * 1000);
-  # @@ TODO figure out if we exit because of a timeout and return -1
-  # in that case.
-  return 0;
+  $status = 0;
+  Win32::Process::GetExitCode ($self->[0], $status);
+  return $status;
 }
 
 1;
-- 
cgit v1.2.1