[PATCH] gitk: add check for required tcl version >= 8.4

From: Steffen Prohaska <prohaska@zib.de>
Date: Sep 28, 2007, 20:57 UTC
Message-ID: <11910130423769-git-send-email-prohaska@zib.de>
In-Reply-To: <915048.40970.qm@web38908.mail.mud.yahoo.com>

gitk requires tcl version >= 8.4 to work flawlessly. So let's check the tcl version and quit if it's too low.

Signed-off-by: Steffen Prohaska <prohaska@zib.de>
---
 gitk |    5 +++++
 1 files changed, 5 insertions(+), 0 deletions(-)

diff --git a/gitk b/gitk
index 300fdce..6ea6489 100755
--- a/gitk
+++ b/gitk
@@ -7,6 +7,11 @@ exec wish "$0" -- "$@"
 # and distributed under the terms of the GNU General Public Licence,
 # either version 2, or (at your option) any later version.
 
+if {[info tclversion] < 8.4} {
+   puts stderr "Sorry, gitk requires tcl version >= 8.4."
+   exit 1 
+}
+
 proc gitdir {} {
     global env
     if {[info exists env(GIT_DIR)]} {

-- 
1.5.3.2.111.g5166