summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2011-09-29 10:56:52 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2011-09-29 10:56:52 (GMT)
commit89b3c7f11e1bdf0e7c9b8cfe622f383ec7ca0a4d (patch)
tree5bbe423a93ffa499748e438446828bae4ebf2828 /tests
parent310eac0d4cb3f8936efaf2d371c40f2501767026 (diff)
downloadtcl-89b3c7f11e1bdf0e7c9b8cfe622f383ec7ca0a4d.zip
tcl-89b3c7f11e1bdf0e7c9b8cfe622f383ec7ca0a4d.tar.gz
tcl-89b3c7f11e1bdf0e7c9b8cfe622f383ec7ca0a4d.tar.bz2
[Bug 3414769]: Updated list of default-hidden commands for safe interps.
Diffstat (limited to 'tests')
-rw-r--r--tests/interp.test2
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/interp.test b/tests/interp.test
index c146355..ab91f77 100644
--- a/tests/interp.test
+++ b/tests/interp.test
@@ -17,7 +17,7 @@ if {"::tcltest" ni [namespace children]} {
testConstraint testinterpdelete [llength [info commands testinterpdelete]]
-set hidden_cmds {cd encoding exec exit fconfigure glob load open pwd socket source tcl:file:atime tcl:file:attributes tcl:file:copy tcl:file:delete tcl:file:dirname tcl:file:executable tcl:file:exists tcl:file:extension tcl:file:isdirectory tcl:file:isfile tcl:file:link tcl:file:lstat tcl:file:mkdir tcl:file:mtime tcl:file:nativename tcl:file:normalize tcl:file:owned tcl:file:readable tcl:file:readlink tcl:file:rename tcl:file:rootname tcl:file:size tcl:file:stat tcl:file:tail tcl:file:tempfile tcl:file:type tcl:file:volumes tcl:file:writable unload}
+set hidden_cmds {cd encoding exec exit fconfigure file glob load open pwd socket source tcl:file:atime tcl:file:attributes tcl:file:copy tcl:file:delete tcl:file:dirname tcl:file:executable tcl:file:exists tcl:file:extension tcl:file:isdirectory tcl:file:isfile tcl:file:link tcl:file:lstat tcl:file:mkdir tcl:file:mtime tcl:file:nativename tcl:file:normalize tcl:file:owned tcl:file:readable tcl:file:readlink tcl:file:rename tcl:file:rootname tcl:file:size tcl:file:stat tcl:file:tail tcl:file:tempfile tcl:file:type tcl:file:volumes tcl:file:writable unload}
foreach i [interp slaves] {
interp delete $i