From 2a52ff28dd5deb1dc6fde4f0fdbbb85aa6b4efe3 Mon Sep 17 00:00:00 2001
From: kjnash <k.j.nash@usa.net>
Date: Sat, 18 Jul 2020 12:53:53 +0000
Subject: Remove code block in ::safe::AliasGlob that no longer serves a useful
 purpose.

---
 library/safe.tcl | 7 -------
 1 file changed, 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'"
-- 
cgit v0.12