diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-10-29 20:08:41 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-10-29 20:08:41 (GMT) |
commit | 37fbc7330c9e687eac6bc39a0bce202bb4bf83d5 (patch) | |
tree | 3536ead9422ebee103f7072d4e988080a6c61f57 /unix/tclUnixTest.c | |
parent | 3b3f0179aee2dce77bfef12308c53429523675bc (diff) | |
parent | a401663e7ef33d1bf2c2a2590ed3945c4c864760 (diff) | |
download | tcl-37fbc7330c9e687eac6bc39a0bce202bb4bf83d5.zip tcl-37fbc7330c9e687eac6bc39a0bce202bb4bf83d5.tar.gz tcl-37fbc7330c9e687eac6bc39a0bce202bb4bf83d5.tar.bz2 |
merge trunk
Diffstat (limited to 'unix/tclUnixTest.c')
-rw-r--r-- | unix/tclUnixTest.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/unix/tclUnixTest.c b/unix/tclUnixTest.c index 21a7bad..4b0f369 100644 --- a/unix/tclUnixTest.c +++ b/unix/tclUnixTest.c @@ -566,12 +566,11 @@ TestforkObjCmd( "Cannot fork", NULL); return TCL_ERROR; } -#if !defined(HAVE_PTHREAD_ATFORK) - /* Only needed when pthread_atfork is not present. */ + /* Only needed when pthread_atfork is not present, + * should not hurt otherwise. */ if (pid==0) { Tcl_InitNotifier(); } -#endif Tcl_SetObjResult(interp, Tcl_NewIntObj(pid)); return TCL_OK; } |