From: Jean-Claude Wippler <jcw@equi4.com>
Date: Fri, 26 Sep 2003 13:30:56 +0000 (+0000)
Subject: minor starkit pkg fix
X-Git-Tag: vfs-1-3~6
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=8e5c87cb9c988e05a028d011efee6ecd03a205e8;p=tclvfs

minor starkit pkg fix
---

diff --git a/ChangeLog b/ChangeLog
index 26855eb..5164da7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-09-26  Jean-Claude Wippler  <jcw@equi4.com>
+
+	* starkit.tcl: add file normalize around info nameofexe, fixes
+	startup detection when exec'd in some cases (thx E Boudaillier).
+
 2003-09-01  Vince Darley <vincentdarley@sourceforge.net>
 
 	* library/mk4vfs.tcl: fix to Bug #796782.
diff --git a/library/starkit.tcl b/library/starkit.tcl
index 6fa3194..4c43728 100644
--- a/library/starkit.tcl
+++ b/library/starkit.tcl
@@ -54,7 +54,7 @@ namespace eval starkit {
 	set script [file normalize [info script]]
 	set topdir [file dirname $script]
 
-	if {$topdir eq [info nameofexe]} { return starpack }
+	if {$topdir eq [file normalize [info nameofexe]]} { return starpack }
 
 	# pkgs live in the $topdir/lib/ directory
 	set lib [file join $topdir lib]