From 9350513d164aa683ea09806945eef90a924a936b Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Mon, 22 Jul 2013 11:11:10 +0000
Subject: Tcl_InitNotifier() call in TestforkObjCmd() is only necessary when
pthread_atfork() is not available.
---
unix/tclUnixTest.c | 3 +++
1 file changed, 3 insertions(+)
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;
}
--
cgit v0.12