diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-22 17:13:28 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-22 17:13:28 (GMT) |
| commit | c54fe6f39bb6b7556dfc9d574929aa1976346b2a (patch) | |
| tree | 548b8f0ea88be8926edbc77d544fa7d3f11dfa5f /library | |
| parent | 2a959a10351bfea7ba5e0cd4595c03b58e818350 (diff) | |
| parent | 6c6a470c2bc258d42f224373a084ee2a4d61e9a6 (diff) | |
| download | tcl-c54fe6f39bb6b7556dfc9d574929aa1976346b2a.zip tcl-c54fe6f39bb6b7556dfc9d574929aa1976346b2a.tar.gz tcl-c54fe6f39bb6b7556dfc9d574929aa1976346b2a.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'library')
| -rw-r--r-- | library/safe.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/safe.tcl b/library/safe.tcl index d140aac..1bc7d6a 100644 --- a/library/safe.tcl +++ b/library/safe.tcl @@ -1029,14 +1029,14 @@ proc ::safe::AliasLoad {child file args} { # Determine what kind of load is requested if {$file eq ""} { - # static library loading + # static 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 library loading disabled\ + Log $child "static loading disabled\ (trying to load $prefix to $target)" return -code error "permission denied (static library)" } |