diff options
Diffstat (limited to 'library/safe.tcl')
| -rw-r--r-- | library/safe.tcl | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/library/safe.tcl b/library/safe.tcl index 61246e8..186c2e7 100644 --- a/library/safe.tcl +++ b/library/safe.tcl @@ -12,7 +12,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: safe.tcl,v 1.15 2005/07/23 04:12:49 dgp Exp $ +# RCS: @(#) $Id: safe.tcl,v 1.16 2006/11/03 00:34:52 hobbs Exp $ # # The implementation is based on namespaces. These naming conventions @@ -517,7 +517,7 @@ proc ::safe::interpDelete {slave} { # remove the hook now, otherwise if the hook # calls us somehow, we'll loop Unset $hookname - if {[catch {{expand}$hook $slave} err]} { + if {[catch {{*}$hook $slave} err]} { Log $slave "Delete hook error ($err)" } } @@ -628,15 +628,15 @@ proc ::safe::setLogCmd {args} { } # set/get values proc Set {args} { - Toplevel set {expand}$args + Toplevel set {*}$args } # lappend on toplevel vars proc Lappend {args} { - Toplevel lappend {expand}$args + Toplevel lappend {*}$args } # unset a var/token (currently just an global level eval) proc Unset {args} { - Toplevel unset {expand}$args + Toplevel unset {*}$args } # test existance proc Exists {varname} { @@ -683,7 +683,7 @@ proc ::safe::setLogCmd {args} { proc Log {slave msg {type ERROR}} { variable Log if {[info exists Log] && [llength $Log]} { - {expand}$Log "$type for slave $slave : $msg" + {*}$Log "$type for slave $slave : $msg" } } @@ -846,7 +846,7 @@ proc ::safe::setLogCmd {args} { proc Subset {slave command okpat args} { set subcommand [lindex $args 0] if {[regexp $okpat $subcommand]} { - return [$command {expand}$args] + return [$command {*}$args] } set msg "not allowed to invoke subcommand $subcommand of $command" Log $slave $msg @@ -881,7 +881,7 @@ proc ::safe::setLogCmd {args} { set subcommand [lindex $args 0] if {[regexp $okpat $subcommand]} { - return [::interp invokehidden $slave encoding {expand}$args] + return [::interp invokehidden $slave encoding {*}$args] } if {[string first $subcommand system] == 0} { |