| changeset 26107 | 4b5e5fc1d11f |
| parent 26096 | 783f957dcb01 |
| child 29145 | b1c6f4563df7 |
| 26106:be52145f482d | 26107:4b5e5fc1d11f |
|---|---|
12 |
12 |
13 # process id |
13 # process id |
14 |
14 |
15 if ($group eq "group") { |
15 if ($group eq "group") { |
16 use POSIX "setsid"; |
16 use POSIX "setsid"; |
17 POSIX::setsid, "\n" || die $!; |
17 POSIX::setsid || die $!; |
18 } |
18 } |
19 |
19 |
20 open (PID_FILE, ">", $pid_name) || die $!; |
20 open (PID_FILE, ">", $pid_name) || die $!; |
21 print PID_FILE "$$\n"; |
21 print PID_FILE "$$\n"; |
22 close PID_FILE; |
22 close PID_FILE; |