Posted to tcl by kbk at Wed Feb 06 19:59:42 GMT 2008view pretty
catch {
memory onexit ~/tmp/memory.txt
puts "running with memory leak checking"
}
proc ::exit args {}
set script [lindex $argv 0]
set argv [lreplace $argv 0 0]
source $script
catch {
memory onexit ~/tmp/memory.txt
puts "running with memory leak checking"
}
proc ::exit args {}
set script [lindex $argv 0]
set argv [lreplace $argv 0 0]
source $script