diff options
author | kjnash <k.j.nash@usa.net> | 2020-07-18 13:09:25 (GMT) |
---|---|---|
committer | kjnash <k.j.nash@usa.net> | 2020-07-18 13:09:25 (GMT) |
commit | a300508fee9c27bc2ea2bf95a19d7007dcd26424 (patch) | |
tree | 7333be6756f412978afd7257cb357740b8c7c062 /library | |
parent | 2a52ff28dd5deb1dc6fde4f0fdbbb85aa6b4efe3 (diff) | |
download | tcl-a300508fee9c27bc2ea2bf95a19d7007dcd26424.zip tcl-a300508fee9c27bc2ea2bf95a19d7007dcd26424.tar.gz tcl-a300508fee9c27bc2ea2bf95a19d7007dcd26424.tar.bz2 |
Remove unused code for *.tm from ::safe::AliasGlob.
Diffstat (limited to 'library')
-rw-r--r-- | library/safe.tcl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/library/safe.tcl b/library/safe.tcl index e645085..843255a 100644 --- a/library/safe.tcl +++ b/library/safe.tcl @@ -831,8 +831,7 @@ proc ::safe::AliasGlob {slave args} { } elseif {[string match ~* $thedir]} { set thedir ./$thedir } - if {$thedir eq "*" && - ($thefile eq "pkgIndex.tcl" || $thefile eq "*.tm")} { + if {($thedir eq "*") && ($thefile eq "pkgIndex.tcl")} { set mapped 0 foreach d [glob -directory [TranslatePath $slave $virtualdir] \ -types d -tails *] { |