* library/starkit.tcl (_startup, autoextend): Replaced the buggy

	  'vfs::filesystem fullynormalize' with the ok 'fullnormalize'
	  defined in the same file. Now 'starkit::startup' handles
	  sym-links to a starpack ok when detecting the wrap mode.

diff --git a/ChangeLog b/ChangeLog
index c7f384467a2a27962ccf896769d0035275273346..6c01e4c5dad5d54d5256a7b492594235efbb3558 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2008-11-20  Andreas Kupries  <andreask@activestate.com>
+
+       * library/starkit.tcl (_startup, autoextend): Replaced the buggy
+         'vfs::filesystem fullynormalize' with the ok 'fullnormalize'
+         defined in the same file. Now 'starkit::startup' handles
+         sym-links to a starpack ok when detecting the wrap mode.
+
 2008-10-17  Jeff Hobbs  <jeffh@ActiveState.com>
 
        * pkgIndex.tcl.in, library/pkgIndex.tcl: update vfs::tar to 0.91

diff --git a/library/starkit.tcl b/library/starkit.tcl
index d16f008fd29b2db50e87f0c5c02f5f1444182e70..ac0bb813a5db144c73530469afb1c642b8dd0e03 100644 (file)
--- a/library/starkit.tcl
+++ b/library/starkit.tcl
@@ -72,16 +72,16 @@ namespace eval starkit {
        # 2003/02/11: new behavior, if starkit::topdir exists, don't disturb it
        if {![info exists starkit::topdir]} { variable topdir }
 
-       set script [vfs::filesystem fullynormalize [info script]]
+       set script [fullnormalize [info script]]
        set topdir [file dirname $script]
 
-       if {$topdir eq [vfs::filesystem fullynormalize [info nameofexe]]} { return starpack }
+       if {$topdir eq [fullnormalize [info nameofexe]]} { return starpack }
 
        # pkgs live in the $topdir/lib/ directory
        set lib [file join $topdir lib]
        if {[file isdir $lib]} { autoextend $lib }
 
-       set a0 [vfs::filesystem fullynormalize $argv0]
+       set a0 [fullnormalize $argv0]
        if {$topdir eq $a0} { return starkit }
        if {$script eq $a0} { return unwrapped }
 
@@ -100,7 +100,7 @@ namespace eval starkit {
     # append an entry to auto_path if it's not yet listed
     proc autoextend {dir} {
        global auto_path
-       set dir [vfs::filesystem fullynormalize $dir]
+       set dir [fullnormalize $dir]
        if {[lsearch $auto_path $dir] < 0} {
            lappend auto_path $dir
        }