Posted to tcl by mjanssen at Sat Mar 09 11:37:46 GMT 2024view pretty
interp create -safe safeint
package require tcltest
foreach cmd [info commands tcltest::*] {
interp alias safeint $cmd {} $cmd
}
safeint eval {info commands tcltest::*}
interp create -safe safeint
package require tcltest
foreach cmd [info commands tcltest::*] {
interp alias safeint $cmd {} $cmd
}
safeint eval {info commands tcltest::*}