summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2021-03-19 11:18:08 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2021-03-19 11:18:08 (GMT)
commit1df5f1053536d20ad31fac5c678647258b61c24f (patch)
tree430c0be0edec839b9e2866058b3e2d05627bd73c /library
parent6691d36fcb40c6b22b8586ba868469a34cb69399 (diff)
parentc39345b47aa9604e3ffb82599ee15be9cbce57f6 (diff)
downloadtcl-1df5f1053536d20ad31fac5c678647258b61c24f.zip
tcl-1df5f1053536d20ad31fac5c678647258b61c24f.tar.gz
tcl-1df5f1053536d20ad31fac5c678647258b61c24f.tar.bz2
Merge 8.7
Diffstat (limited to 'library')
-rw-r--r--library/safe.tcl24
1 files changed, 12 insertions, 12 deletions
diff --git a/library/safe.tcl b/library/safe.tcl
index 3bdf728..d140aac 100644
--- a/library/safe.tcl
+++ b/library/safe.tcl
@@ -1009,8 +1009,8 @@ proc ::safe::AliasLoad {child file args} {
return -code error $msg
}
- # package name (can be empty if file is not).
- set package [lindex $args 0]
+ # prefix (can be empty if file is not).
+ set prefix [lindex $args 0]
namespace upvar ::safe [VarName $child] state
@@ -1022,23 +1022,23 @@ proc ::safe::AliasLoad {child file args} {
# authorize that.
if {!$state(nestedok)} {
Log $child "loading to a sub interp (nestedok)\
- disabled (trying to load $package to $target)"
+ disabled (trying to load $prefix to $target)"
return -code error "permission denied (nested load)"
}
}
# Determine what kind of load is requested
if {$file eq ""} {
- # static package loading
- if {$package eq ""} {
- set msg "load error: empty filename and no package name"
+ # static library loading
+ if {$prefix eq ""} {
+ set msg "load error: empty filename and no prefix"
Log $child $msg
return -code error $msg
}
if {!$state(staticsok)} {
- Log $child "static packages loading disabled\
- (trying to load $package to $target)"
- return -code error "permission denied (static package)"
+ Log $child "static library loading disabled\
+ (trying to load $prefix to $target)"
+ return -code error "permission denied (static library)"
}
} else {
# file loading
@@ -1061,10 +1061,10 @@ proc ::safe::AliasLoad {child file args} {
}
try {
- return [::interp invokehidden $child load $file $package $target]
+ return [::interp invokehidden $child load $file $prefix $target]
} on error msg {
- # Some packages return no error message.
- set msg0 "load of binary library for package $package failed"
+ # Some libraries return no error message.
+ set msg0 "load of library for prefix $prefix failed"
if {$msg eq {}} {
set msg $msg0
} else {