author | wenzelm |
Tue, 19 Feb 2008 20:34:28 +0100 | |
changeset 26096 | 783f957dcb01 |
parent 26095 | 04ee0a14a9f6 |
child 26097 | 943582a2d1e2 |
--- 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";