From a300508fee9c27bc2ea2bf95a19d7007dcd26424 Mon Sep 17 00:00:00 2001
From: kjnash <k.j.nash@usa.net>
Date: Sat, 18 Jul 2020 13:09:25 +0000
Subject: Remove unused code for *.tm from ::safe::AliasGlob.

---
 library/safe.tcl | 3 +--
 1 file changed, 1 insertion(+), 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 *] {
-- 
cgit v0.12