diff options
Diffstat (limited to 'library/safe.tcl')
| -rw-r--r-- | library/safe.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/library/safe.tcl b/library/safe.tcl index 9b93523..9eb9a3f 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. # -# SCCS: @(#) safe.tcl 1.26 97/08/21 11:57:20 +# SCCS: %Z% $Id: safe.tcl,v 1.2 1998/06/27 18:11:25 welch Exp $ # # The implementation is based on namespaces. These naming conventions @@ -417,7 +417,7 @@ proc ::safe::interpAddToAccessPath {slave path} { Lappend [VirtualPathListName $slave] $token; Lappend [PathListName $slave] $path; - Set $nname [expr $n+1]; + Set $nname [expr {$n+1}]; SyncAccessPath $slave; @@ -528,7 +528,7 @@ proc ::safe::interpDelete {slave} { # remove the hook now, otherwise if the hook # calls us somehow, we'll loop Unset $hookname; - if {[catch {eval $hook $slave} err]} { + if {[catch {eval $hook [list $slave]} err]} { Log $slave "Delete hook error ($err)"; } } @@ -681,7 +681,7 @@ proc ::safe::setLogCmd {args} { if {[regexp {(::)|(\.\.)} $path]} { error "invalid characters in path $path"; } - set n [expr [Set [PathNumberName $slave]]-1]; + set n [expr {[Set [PathNumberName $slave]]-1}]; for {} {$n>=0} {incr n -1} { # fill the token virtual names with their real value set [PathToken $n] [Set [PathToken $n $slave]]; |