From: Michael Gernoth <michael@gernoth.net>
Date: Tue, 15 Jan 2008 17:26:20 +0000 (+0100)
Subject: replace call to setpgrp with setpgid, as setpgrp is defined different on OS X Tiger
X-Git-Url: http://git.zerfleddert.de/cgi-bin/gitweb.cgi/micropolis/commitdiff_plain/92fbdb22eecfff61c11838d56400a47b3c816a32

replace call to setpgrp with setpgid, as setpgrp is defined different on OS X Tiger
---

diff --git a/src/tclx/src/tclxid.c b/src/tclx/src/tclxid.c
index b23d7bb..730c4ef 100644
--- a/src/tclx/src/tclxid.c
+++ b/src/tclx/src/tclxid.c
@@ -239,7 +239,7 @@ Tcl_IdCmd (clientData, interp, argc, argv)
                                   " process group [set]", (char *) NULL);
                 return TCL_ERROR;
             }
-            setpgrp ();
+            setpgid(getpid(), getpid());
             return TCL_OK;
         }
         Tcl_AppendResult (interp, tclXWrongArgs, argv [0],