diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-07-16 07:02:12 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-07-16 07:02:12 (GMT) |
| commit | 3f66aba7098ff65247975b4edddc193153ed6f1e (patch) | |
| tree | dcc5195b75bf3c33e9ee00629be396e7c890a3d2 /library | |
| parent | 377705b8359583701491ca8e945a982029aebd0b (diff) | |
| parent | 9b4bad2783cd4e6f9fefc8af4ade78391fb0d34e (diff) | |
| download | tcl-3f66aba7098ff65247975b4edddc193153ed6f1e.zip tcl-3f66aba7098ff65247975b4edddc193153ed6f1e.tar.gz tcl-3f66aba7098ff65247975b4edddc193153ed6f1e.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'library')
| -rw-r--r-- | library/init.tcl | 2 | ||||
| -rw-r--r-- | library/safe.tcl | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/library/init.tcl b/library/init.tcl index 09b81fb..31139dd 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -591,7 +591,7 @@ proc auto_execok name { } set auto_execs($name) "" - set shellBuiltins [list assoc cls copy date del dir echo erase ftype \ + set shellBuiltins [list assoc cls copy date del dir echo erase exit ftype \ md mkdir mklink move rd ren rename rmdir start time type ver vol] if {[info exists env(PATHEXT)]} { # Add an initial ; to have the {} extension check first. diff --git a/library/safe.tcl b/library/safe.tcl index 1bc7d6a..6c905fb 100644 --- a/library/safe.tcl +++ b/library/safe.tcl @@ -131,7 +131,7 @@ proc ::safe::interpConfigure {args} { [list -accessPath $state(access_path)] \ [list -statics $state(staticsok)] \ [list -nested $state(nestedok)] \ - [list -deleteHook $state(cleanupHook)]]] + [list -deleteHook $state(cleanupHook)]]] } 2 { # If we have exactly 2 arguments the semantic is a "configure |