summaryrefslogtreecommitdiffstats
path: root/library/safe.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'library/safe.tcl')
-rw-r--r--library/safe.tcl8
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]];