From: Andreas Kupries <andreas_kupries@users.sourceforge.net>
Date: Tue, 19 Jun 2007 16:28:45 +0000 (+0000)
Subject: 	* library/starkit.tcl (header): See last entry. Simplified the
X-Git-Tag: vfs-1-4~36
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=995635ce5ff9ad89b6b79a25da3d9dae6596e66c;p=tclvfs

	* library/starkit.tcl (header): See last entry. Simplified the
	  helper command 'fullnormalize', replaced complex file
	  split/lrange/join/eval operation with 'file dirname'.
---

diff --git a/ChangeLog b/ChangeLog
index 985a7a6..10a4fc2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2007-06-19  Andreas Kupries  <andreask@activestate.com>
+
+	* library/starkit.tcl (header): See last entry. Simplified the
+	  helper command 'fullnormalize', replaced complex file
+	  split/lrange/join/eval operation with 'file dirname'.
+
 2007-05-28  Andreas Kupries  <andreask@activestate.com>
 
 	* library/starkit.tcl (header): Added helper command
diff --git a/library/starkit.tcl b/library/starkit.tcl
index 6e48f1c..17743d2 100644
--- a/library/starkit.tcl
+++ b/library/starkit.tcl
@@ -54,8 +54,7 @@ namespace eval starkit {
 	# return [file join {expand}[lrange [file split
 	#    [file normalize [file join $path __dummy__]]] 0 end-1]]
 
-	return [eval [list file join] [lrange [file split \
-		   [file normalize [file join $path __dummy__]]] 0 end-1]]
+	return [file dirname [file normalize [file join $path __dummy__]]]
     }
 
     # called from the startup script of a starkit to init topdir and auto_path