Posted to tcl by kbk at Mon Apr 30 17:55:38 GMT 2007view raw

  1. set dir [file dirname [info script]]
  2. set fn [file join $dir leaktest2.tcl]
  3. set f [open $fn w]
  4. puts $f {
  5. set foo {return bar}
  6. proc grill {} [subst {$foo}]
  7. }
  8. close $f
  9. interp create child
  10. child eval [list source $fn]
  11. interp delete child