diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-10-29 08:17:19 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-10-29 08:17:19 (GMT) |
| commit | a401663e7ef33d1bf2c2a2590ed3945c4c864760 (patch) | |
| tree | c3f39f73eee4a73a274f62206d925afe860ed737 /unix/tclUnixTest.c | |
| parent | 56c6fe5e8cce063cb7e0dec1a5035ad8e4fa783e (diff) | |
| parent | 5873d26c7268ee5af9f31c126c64b4350736c458 (diff) | |
| download | tcl-a401663e7ef33d1bf2c2a2590ed3945c4c864760.zip tcl-a401663e7ef33d1bf2c2a2590ed3945c4c864760.tar.gz tcl-a401663e7ef33d1bf2c2a2590ed3945c4c864760.tar.bz2 | |
Workaround for [414d10346b]: tcl 8.5.15/8.6.1(threaded build) hangs in exec on HP-UX
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; } |