| line |
true |
false |
branch |
|
39
|
0 |
0 |
if not -e $pid_file or not -s $pid_file and -M _ > 0.01 |
|
41
|
0 |
0 |
unless open my $fh, '<', $pid_file |
|
44
|
0 |
0 |
$current_pid =~ /^(\d{1,10})/ ? : |
|
47
|
0 |
0 |
if ($$ == $current_pid) { } |
|
|
0 |
0 |
elsif (-d "/proc/$$") { } |
|
|
0 |
0 |
elsif (kill 0, $current_pid) { } |
|
55
|
0 |
0 |
if $exists |
|
71
|
0 |
0 |
unless open my $fh, '>', $pid_file |
|
75
|
0 |
0 |
unless -e $pid_file |
|
83
|
0 |
0 |
unless -e $pid_file |
|
85
|
0 |
0 |
unless open my $fh, '<', $pid_file |
|
90
|
0 |
0 |
if $current_pid ne $$ |
|
93
|
0 |
0 |
unless unlink $pid_file |
|
107
|
0 |
0 |
$user =~ /^(\d+)$/ ? : |
|
108
|
0 |
0 |
unless defined $uid |
|
117
|
0 |
0 |
if ($group =~ /^\d+$/) { } |
|
121
|
0 |
0 |
unless defined $id |
|
126
|
0 |
0 |
unless @gid |
|
135
|
0 |
0 |
if ($< != $uid or $> != $uid) |
|
137
|
0 |
0 |
if ($< != $uid) |
|
153
|
0 |
0 |
unless (grep {$gid == $_;} split(/\s+/, $(, 0)) |
|
163
|
0 |
0 |
unless set_gid(@group) |
|
164
|
0 |
0 |
unless set_uid($user) |
|
175
|
0 |
0 |
unless POSIX::sigprocmask(0, $sigset) |
|
178
|
0 |
0 |
unless defined $pid |
|
182
|
0 |
0 |
unless POSIX::sigprocmask(1, $sigset) |
|
193
|
0 |
0 |
if defined $pid_file |
|
201
|
0 |
0 |
if $pid |
|
204
|
0 |
0 |
if defined $pid_file |
|
205
|
0 |
0 |
if defined $pid_file |
|
209
|
0 |
0 |
unless open STDIN, '<', '/dev/null' |
|
210
|
0 |
0 |
unless open STDOUT, '>', '/dev/null' |
|
211
|
0 |
0 |
unless open STDERR, '>&STDOUT' |
|
214
|
0 |
0 |
unless chdir '/' |
|
219
|
0 |
0 |
if defined $pid_file |