Posted to tcl by kbk at Mon Apr 30 17:55:38 GMT 2007view raw
- set dir [file dirname [info script]]
- set fn [file join $dir leaktest2.tcl]
- set f [open $fn w]
- puts $f {
- set foo {return bar}
- proc grill {} [subst {$foo}]
- }
- close $f
- interp create child
- child eval [list source $fn]
- interp delete child