summaryrefslogtreecommitdiffstats
path: root/library/auto.tcl
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2011-03-10 15:31:47 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2011-03-10 15:31:47 (GMT)
commit226803c44fa0615537f00d627caf13edc292ae67 (patch)
tree3d762efe761d77443255b67980b016728e90a1dc /library/auto.tcl
parent5dcb1f9d84afc356cd64d639642cf059ef6c566c (diff)
downloadtcl-226803c44fa0615537f00d627caf13edc292ae67.zip
tcl-226803c44fa0615537f00d627caf13edc292ae67.tar.gz
tcl-226803c44fa0615537f00d627caf13edc292ae67.tar.bz2
Fix most of the failing tests (some of which were due to breakage done to the
parser used in auto_mkIndex; never a good idea to delete the ::tcl NS!)
Diffstat (limited to 'library/auto.tcl')
-rw-r--r--library/auto.tcl9
1 files changed, 8 insertions, 1 deletions
diff --git a/library/auto.tcl b/library/auto.tcl
index c84ab58..4bd860d 100644
--- a/library/auto.tcl
+++ b/library/auto.tcl
@@ -304,7 +304,14 @@ namespace eval auto_mkindex_parser {
$parser hide namespace
$parser hide eval
$parser hide puts
- $parser invokehidden namespace delete ::
+ foreach ns [$parser invokehidden namespace children ::] {
+ # MUST NOT DELETE "::tcl" OR BAD THINGS HAPPEN!
+ if {$ns eq "::tcl"} continue
+ $parser invokehidden namespace delete $ns
+ }
+ foreach cmd [$parser invokehidden info commands ::*] {
+ $parser invokehidden rename $cmd {}
+ }
$parser invokehidden proc unknown {args} {}
# We'll need access to the "namespace" command within the