| line |
true |
false |
branch |
|
35
|
2 |
0 |
-d '/var/run' && -w _ ? : |
|
61
|
0 |
0 |
if defined $user and defined $group |
|
66
|
0 |
0 |
unless defined(my $child = fork) |
|
67
|
0 |
0 |
if $child |
|
82
|
0 |
0 |
unless my $uid = getpwnam $user |
|
83
|
0 |
0 |
unless my $gid = getgrnam $group |
|
94
|
0 |
0 |
unless defined(my $child = fork) |
|
95
|
0 |
0 |
if ($child) { } |
|
107
|
0 |
0 |
if ($home) |
|
109
|
0 |
0 |
unless chdir $home |
|
110
|
0 |
0 |
unless chroot $home |
|
117
|
0 |
0 |
if ref $Proc::DaemonLite::CHILDREN{$child} eq 'CODE' |
|
131
|
0 |
0 |
if $CWD =~ m[([./a-zA-z0-9_-]+)] |
|
132
|
0 |
0 |
unless $0 =~ m[([./a-zA-z0-9_-]+)] |
|
134
|
0 |
0 |
if $ARGV[0] =~ /(\d+)/ |
|
136
|
0 |
0 |
unless exec 'perl', '-T', $program, $port |
|
153
|
0 |
0 |
unless $^S |
|
160
|
0 |
0 |
unless $msg =~ /\n$/ |
|
171
|
0 |
0 |
if (-e $file) |
|
174
|
0 |
0 |
unless $pid =~ /^(\d+)$/ |
|
175
|
0 |
0 |
if kill 0, $1 |
|
177
|
0 |
0 |
unless -w $file and unlink $file |
|
179
|
0 |
0 |
unless return 'IO::File'->new($file, 193, 420) |
|
189
|
0 |
0 |
unless $Proc::DaemonLite::DEBUG |
|
194
|
0 |
0 |
unless $Proc::DaemonLite::DEBUG |