diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-22 17:07:01 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-22 17:07:01 (GMT) |
| commit | 317e67147153ae5897345e3e98b0cc67a29c5b8b (patch) | |
| tree | 5fde96ac0d14b163451029af0097528d7e687230 /library | |
| parent | 2f747e5c477282b697d38c9fa566a0e5167a2646 (diff) | |
| download | tcl-317e67147153ae5897345e3e98b0cc67a29c5b8b.zip tcl-317e67147153ae5897345e3e98b0cc67a29c5b8b.tar.gz tcl-317e67147153ae5897345e3e98b0cc67a29c5b8b.tar.bz2 | |
Rename MODULESCOPE TclGetLoadedPackagesEx() to TclGetLoadedLibraries()
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 27033b2..3c01f75 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)" } |