lib/scripts/system.pl
changeset 26096 783f957dcb01
parent 26092 260cca2e16fa
child 26107 4b5e5fc1d11f
--- 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";