Posted to tcl by patthoyts at Tue Aug 21 19:55:43 GMT 2007view pretty

==== 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