Posted to tcl by kbk at Wed Feb 06 19:59:42 GMT 2008view raw

  1. catch {
  2. memory onexit ~/tmp/memory.txt
  3. puts "running with memory leak checking"
  4. }
  5. proc ::exit args {}
  6. set script [lindex $argv 0]
  7. set argv [lreplace $argv 0 0]
  8. source $script
  9.  
  10.