diff options
| author | kjnash <k.j.nash@usa.net> | 2020-07-18 12:53:53 (GMT) |
|---|---|---|
| committer | kjnash <k.j.nash@usa.net> | 2020-07-18 12:53:53 (GMT) |
| commit | 2a52ff28dd5deb1dc6fde4f0fdbbb85aa6b4efe3 (patch) | |
| tree | f3c93b101d168fd2d1f9b283f606529674cb24d4 /library | |
| parent | 651f71edfd77b66fd1e585154b7f4390e6df2b6f (diff) | |
| download | tcl-2a52ff28dd5deb1dc6fde4f0fdbbb85aa6b4efe3.zip tcl-2a52ff28dd5deb1dc6fde4f0fdbbb85aa6b4efe3.tar.gz tcl-2a52ff28dd5deb1dc6fde4f0fdbbb85aa6b4efe3.tar.bz2 | |
Remove code block in ::safe::AliasGlob that no longer serves a useful purpose.
Diffstat (limited to 'library')
| -rw-r--r-- | library/safe.tcl | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/library/safe.tcl b/library/safe.tcl index 74aee87..e645085 100644 --- a/library/safe.tcl +++ b/library/safe.tcl @@ -792,13 +792,6 @@ proc ::safe::AliasGlob {slave args} { set virtualdir [lindex $args [incr at]] incr at } - pkgIndex.tcl { - # Oops, this is globbing a subdirectory in regular package - # search. That is not wanted. Abort, handler does catch - # already (because glob was not defined before). See - # package.tcl, lines 484ff in tclPkgUnknown. - return -code error "unknown command glob" - } -* { Log $slave "Safe base rejecting glob option '$opt'" return -code error "Safe base rejecting glob option '$opt'" |