| 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";