diff options
| author | ferrieux <ferrieux@users.sourceforge.net> | 2012-09-07 14:44:46 (GMT) |
|---|---|---|
| committer | ferrieux <ferrieux@users.sourceforge.net> | 2012-09-07 14:44:46 (GMT) |
| commit | edd591e8fbb5a6def7fbe9ca0d8e3f22c0e9cd56 (patch) | |
| tree | 4e787db7dedfa13ff9af7db6fd3b0cb62d547a3a /unix/tclUnixNotfy.c | |
| parent | 96b1a87503f1da17ec4626ba78ef7a04030e98ce (diff) | |
| download | tcl-edd591e8fbb5a6def7fbe9ca0d8e3f22c0e9cd56.zip tcl-edd591e8fbb5a6def7fbe9ca0d8e3f22c0e9cd56.tar.gz tcl-edd591e8fbb5a6def7fbe9ca0d8e3f22c0e9cd56.tar.bz2 | |
Backport of 2008-12-12 8.6 commit: Fix missing CLOEXEC on internal pipes [2417695]
Diffstat (limited to 'unix/tclUnixNotfy.c')
| -rw-r--r-- | unix/tclUnixNotfy.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/unix/tclUnixNotfy.c b/unix/tclUnixNotfy.c index 42cc7be..51f0b1f 100644 --- a/unix/tclUnixNotfy.c +++ b/unix/tclUnixNotfy.c @@ -1057,6 +1057,12 @@ NotifierThreadProc( if (TclUnixSetBlockingMode(fds[1], TCL_MODE_NONBLOCKING) < 0) { Tcl_Panic("NotifierThreadProc: could not make trigger pipe non blocking"); } + if (fcntl(receivePipe, F_SETFD, FD_CLOEXEC) < 0) { + Tcl_Panic("NotifierThreadProc: could not make receive pipe close-on-exec"); + } + if (fcntl(fds[1], F_SETFD, FD_CLOEXEC) < 0) { + Tcl_Panic("NotifierThreadProc: could not make trigger pipe close-on-exec"); + } /* * Install the write end of the pipe into the global variable. |