line |
true |
false |
branch |
34
|
2 |
0 |
-d '/var/run' && -w _ ? : |
64
|
0 |
0 |
if defined $user and defined $group |
70
|
0 |
0 |
unless defined(my $child = fork) |
71
|
0 |
0 |
if $child |
87
|
0 |
0 |
unless my $uid = getpwnam $user |
88
|
0 |
0 |
unless my $gid = getgrnam $group |
101
|
0 |
0 |
unless defined(my $child = fork) |
103
|
0 |
0 |
if ($child) { } |
117
|
0 |
0 |
if ($home) |
119
|
0 |
0 |
unless chdir $home |
120
|
0 |
0 |
unless chroot $home |
128
|
0 |
0 |
if ref $Proc::DaemonLite::CHILDREN{$child} eq 'CODE' |
145
|
0 |
0 |
if $CWD =~ m[([./a-zA-z0-9_-]+)] |
146
|
0 |
0 |
unless $Proc::DaemonLite::SCRIPT =~ m[([./a-zA-z0-9_-]+)] |
151
|
0 |
0 |
if ${^TAINT} eq 1 |
152
|
0 |
0 |
if ${^TAINT} eq -1 |
153
|
0 |
0 |
if $^W |
155
|
0 |
0 |
unless exec @perl, $program, @ARGV |
174
|
0 |
0 |
unless $^S |
182
|
0 |
0 |
unless $msg =~ /\n$/ |
196
|
0 |
0 |
if (-e $file) |
199
|
0 |
0 |
unless $pid =~ /^(\d+)$/ |
200
|
0 |
0 |
if kill 0, $1 |
202
|
0 |
0 |
unless -w $file and unlink $file |
205
|
0 |
0 |
unless return 'IO::File'->new($file, 193, 420) |
215
|
0 |
0 |
unless $Proc::DaemonLite::DEBUG |
221
|
0 |
0 |
unless $Proc::DaemonLite::DEBUG |