* 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 985a7a6b581ff42145c7f544f7bc636ee64e5539..10a4fc2da632b7e9e33bc863d7813a6940b34036 100644 (file)
--- 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 6e48f1c046280a94cc445d63e1c6c1242ef8d093..17743d270881131ffb5ca46c2620e4cb2231cc9a 100644 (file)
--- 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