diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-07-22 11:11:10 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-07-22 11:11:10 (GMT) |
| commit | 9350513d164aa683ea09806945eef90a924a936b (patch) | |
| tree | caf27d9ac073238751f890f85c4aca7229bb4470 /unix/tclUnixTest.c | |
| parent | 4fb5d04b2faf65ac7ce4d88f0dd6be98a68e4d10 (diff) | |
| download | tcl-9350513d164aa683ea09806945eef90a924a936b.zip tcl-9350513d164aa683ea09806945eef90a924a936b.tar.gz tcl-9350513d164aa683ea09806945eef90a924a936b.tar.bz2 | |
Tcl_InitNotifier() call in TestforkObjCmd() is only necessary when pthread_atfork() is not available.
Diffstat (limited to 'unix/tclUnixTest.c')
| -rw-r--r-- | unix/tclUnixTest.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/unix/tclUnixTest.c b/unix/tclUnixTest.c index 39cddef..2fc1647 100644 --- a/unix/tclUnixTest.c +++ b/unix/tclUnixTest.c @@ -574,9 +574,12 @@ TestforkObjCmd( "Cannot fork", NULL); return TCL_ERROR; } +#ifndef HAVE_PTHREAD_ATFORK + /* Only needed when pthread_atfork is not present. */ if (pid==0) { Tcl_InitNotifier(); } +#endif Tcl_SetObjResult(interp, Tcl_NewIntObj(pid)); return TCL_OK; } |