Check-in [ded8851b04]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Updated to propogate auto_path to created interpreters
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:ded8851b04c2bf10426b2db8036cb8b5661e63dc
User & Date: rkeene 2011-06-22 22:50:29
Context
2011-06-24
18:56
Updated to support requesting a certificate and setting the verification status in env(SSL_CLIENT_VERIFY) check-in: 6d8f63011e user: rkeene tags: trunk
2011-06-22
22:50
Updated to propogate auto_path to created interpreters check-in: ded8851b04 user: rkeene tags: trunk
2011-06-14
13:45
Improved upload support to not require looking for EOF if content-length is provided check-in: 65c26befb0 user: rkeene tags: trunk
Changes

Changes to rivet-starkit/main.tcl.

130
131
132
133
134
135
136

137
138
139
140
141
142
143
					}
				}
			}
	
			if {$createinterp} {
				set myinterp [interp create]


				$myinterp eval [list package require tclrivet]
				$myinterp eval [list unset -nocomplain ::env]
				$myinterp eval [list array set ::env [array get env]]
				$myinterp eval [list set ::rivet::parsestack [info script]]

				foreach var [list ::starkit::topdir] {
					if {[namespace qualifiers $var] != ""} {







>







130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
					}
				}
			}
	
			if {$createinterp} {
				set myinterp [interp create]

				$myinterp eval [list set ::auto_path $::auto_path]
				$myinterp eval [list package require tclrivet]
				$myinterp eval [list unset -nocomplain ::env]
				$myinterp eval [list array set ::env [array get env]]
				$myinterp eval [list set ::rivet::parsestack [info script]]

				foreach var [list ::starkit::topdir] {
					if {[namespace qualifiers $var] != ""} {