diff options
| author | f.bonnet <f.bonnet> | 2017-08-18 12:49:08 (GMT) |
|---|---|---|
| committer | f.bonnet <f.bonnet> | 2017-08-18 12:49:08 (GMT) |
| commit | 03470df2ff2414f1912a85772cd6f558196ca8bc (patch) | |
| tree | 93c4102d0c31a0bf11c1568d11980957a735f9cf /unix/tclUnixPipe.c | |
| parent | 5aaef06572dc90a7a493d187959fe9829da27fbb (diff) | |
| download | tcl-03470df2ff2414f1912a85772cd6f558196ca8bc.zip tcl-03470df2ff2414f1912a85772cd6f558196ca8bc.tar.gz tcl-03470df2ff2414f1912a85772cd6f558196ca8bc.tar.bz2 | |
Completed [tcl::process autopurge] semantics and added [tcl::process purge] implementation along with the necessary internal functions TclpGetChildPid/TclReapPids
Diffstat (limited to 'unix/tclUnixPipe.c')
| -rw-r--r-- | unix/tclUnixPipe.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/unix/tclUnixPipe.c b/unix/tclUnixPipe.c index be7b4eb..3d8e680 100644 --- a/unix/tclUnixPipe.c +++ b/unix/tclUnixPipe.c @@ -986,7 +986,9 @@ PipeClose2Proc( */ Tcl_DetachPids(pipePtr->numPids, pipePtr->pidPtr); - Tcl_ReapDetachedProcs(); + if (TclProcessGetAutopurge()) { + Tcl_ReapDetachedProcs(); + } if (pipePtr->errorFile) { TclpCloseFile(pipePtr->errorFile); |