Posted to tcl by patthoyts at Tue Aug 21 19:55:43 GMT 2007view raw
- ==== thread-4.4 TclThreadSend preserve code FAILED
- ==== Contents of test case:
- threadReap
- set len [llength [testthread names]]
- set serverthread [testthread create]
- set ::errorInfo {}
- set x [catch {testthread send $serverthread {break}} msg]
- threadReap
- list $len $x $msg $::errorInfo
- ---- Result was:
- 1 3 {} {can't read "::tcl_pkgPath": no such variable
- while executing
- "foreach Dir $::tcl_pkgPath {
- if {$Dir ni $::auto_path} {
- lappend ::auto_path $Dir
- }
- }"}
- ---- Result should have been (exact matching):
- 1 3 {} {}
- ==== thread-4.4 FAILED