[PATCH (GITK) 3/6] gitk: On Windows use a Cygwin-specific flag for kill.

From: Alexander Gavrilov <angavrilov@gmail.com>
Date: Jul 27, 2008, 06:20 UTC
Message-ID: <200807271020.02415.angavrilov@gmail.com>
In-Reply-To: <200807271019.17267.angavrilov@gmail.com>

Date: Tue, 15 Jul 2008 00:35:42 +0400

MSysGit compiles git binaries as native Windows executables, so they cannot be killed unless a special flag is specified.

This flag is implemented by the Cygwin version of kill, which is also included in MSysGit.

Signed-off-by: Alexander Gavrilov <angavrilov@gmail.com>
---
 gitk |    7 ++++++-
 1 files changed, 6 insertions(+), 1 deletions(-)

diff --git a/gitk b/gitk
index b523c98..d7fea26 100755
--- a/gitk
+++ b/gitk
@@ -388,7 +388,12 @@ proc stop_instance {inst} {
     set fd $commfd($inst)
     catch {
 	set pid [pid $fd]
-	exec kill $pid
+
+	if {$::tcl_platform(platform) eq {windows}} {
+	    exec kill -f $pid
+	} else {
+	    exec kill $pid
+	}
     }
     catch {close $fd}
     nukefile $fd

-- 
1.5.6.3.18.gfe82