Check-in [e2f0284dd2]
Overview
Comment:Corrected bug in KitDLL where additional interpreters would not get their auto_path adjusted correctly
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:e2f0284dd27e3cee22d4647f9740cb59b88c0da8
User & Date: rkeene on 2011-07-05 17:25:22
Other Links: manifest | tags
Context
2011-07-05
17:26
Updated to not attempt to download source if "buildsrc" directory is being used for Tcl/Tk check-in: 361d408d67 user: rkeene tags: trunk
17:25
Corrected bug in KitDLL where additional interpreters would not get their auto_path adjusted correctly check-in: e2f0284dd2 user: rkeene tags: trunk
2011-07-04
21:15
Added support for forcing build check-in: 37fc9e9fae user: rkeene tags: trunk
Changes

Modified kitsh/buildsrc/kitsh-0.0/boot.tcl from [fcd5a93523] to [cb5b693f08].

   159    159   		}
   160    160   
   161    161   		# Now that the initialization is complete, mount the user VFS if needed
   162    162   		## Mount the VFS from the Shared Object
   163    163   		if {[info exists ::TCLKIT_INITVFS] && [info exists ::tclKitFilename]} {
   164    164   			catch {
   165    165   				vfs::zip::Mount $::tclKitFilename "/.KITDLL_USER"
   166         -
   167         -				lappend auto_path "/.KITDLL_USER/lib"
   168    166   			}
   169    167   		}
          168  +		lappend auto_path "/.KITDLL_USER/lib"
   170    169   
   171    170   		## Mount the VFS from executable
   172    171   		if {[info exists ::TCLKIT_INITVFS]} {
   173    172   			catch {
   174    173   				vfs::zip::Mount [info nameofexecutable] "/.KITDLL_APP"
   175         -
   176         -				lappend auto_path "/.KITDLL_APP/lib"
   177    174   			}
   178    175   		}
          176  +		lappend auto_path "/.KITDLL_APP/lib"
   179    177   	}
   180    178   
   181    179   	# Clean up
   182    180   	unset -nocomplain ::zip::max_header_seek
   183    181   	unset -nocomplain ::TCLKIT_TYPE ::TCLKIT_INITVFS
   184    182   	unset -nocomplain ::TCLKIT_MOUNTPOINT ::TCLKIT_VFSSOURCE ::TCLKIT_MOUNTPOINT_VAR ::TCLKIT_VFSSOURCE_VAR
   185    183   	unset -nocomplain ::tclKitStorage ::tclKitStorage_fd ::tclKitFilename
   186    184   	unset -nocomplain ::tclkit_system_encoding
   187    185   }