safe_eval

safe_eval   args

Version of eval that checks its arguments for brackets that may be used to execute unsafe code.

Source code:

    foreach arg $args {
	if { [regexp {[\[;]} $arg] } {
	    return -code error "Unsafe argument to safe_eval: $arg"
	}
    }
    return [apply uplevel $args]