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