replaced setpgrp by more elaborate setsid;
authorwenzelm
Tue, 19 Feb 2008 20:34:28 +0100
changeset 26096 783f957dcb01
parent 26095 04ee0a14a9f6
child 26097 943582a2d1e2
replaced setpgrp by more elaborate setsid;
lib/scripts/system.pl
--- a/lib/scripts/system.pl	Tue Feb 19 12:25:56 2008 +0100
+++ b/lib/scripts/system.pl	Tue Feb 19 20:34:28 2008 +0100
@@ -12,7 +12,10 @@
 
 # process id
 
-if ($group eq "group") { setpgrp; }
+if ($group eq "group") {
+  use POSIX "setsid";
+  POSIX::setsid, "\n" || die $!;
+}
 
 open (PID_FILE, ">", $pid_name) || die $!;
 print PID_FILE "$$\n";