diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2011-09-29 10:56:52 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2011-09-29 10:56:52 (GMT) |
| commit | 89b3c7f11e1bdf0e7c9b8cfe622f383ec7ca0a4d (patch) | |
| tree | 5bbe423a93ffa499748e438446828bae4ebf2828 /tests | |
| parent | 310eac0d4cb3f8936efaf2d371c40f2501767026 (diff) | |
| download | tcl-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.test | 2 |
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 |