| line |
true |
false |
branch |
|
40
|
0 |
0 |
if (defined $user) { } |
|
|
0 |
0 |
elsif ($Any::Daemon::EUID == 0) { } |
|
41
|
0 |
0 |
if ($user =~ /[^0-9]/) { } |
|
43
|
0 |
0 |
unless defined $uid |
|
53
|
0 |
0 |
if (defined $group) |
|
54
|
0 |
0 |
if ($group =~ /[^0-9]/) |
|
56
|
0 |
0 |
unless defined $gid |
|
75
|
0 |
0 |
if ($wd) |
|
76
|
0 |
0 |
unless -d $wd or mkdir $wd, 448 |
|
79
|
0 |
0 |
unless chdir $wd |
|
83
|
0 |
0 |
exists $args{'background'} ? : |
|
84
|
0 |
0 |
if ($bg) |
|
88
|
0 |
0 |
if ($kid) { } |
|
|
0 |
0 |
elsif (not defined $kid) { } |
|
96
|
0 |
0 |
unless &dispatcher('list') >= 1 |
|
101
|
0 |
0 |
if (defined $pidfn) |
|
103
|
0 |
0 |
if (open PIDF, '>', $pidfn) |
|
111
|
0 |
0 |
if ($gid != $Any::Daemon::EGID and $uid != $Any::Daemon::EUID) |
|
112
|
0 |
0 |
if $wd |
|
114
|
0 |
0 |
if ($] > 5.015007) { } |
|
122
|
0 |
0 |
if $@ |
|
140
|
0 |
0 |
if (my $e = $@->wasFatal) |
|
160
|
0 |
0 |
if $pidfn |
|
161
|
0 |
0 |
$signal eq 'INT' ? : |
|
165
|
0 |
0 |
if ($bg) |
|
209
|
0 |
0 |
if $kid <= 0 |
|
211
|
0 |
0 |
if ($? != 0) |
|
212
|
0 |
0 |
WIFEXITED($?) ? : |
|
229
|
0 |
0 |
unless (defined $kid) |
|
230
|
0 |
0 |
unless $silence_warn++ |
|
232
|
0 |
0 |
if $silence_warn == 300 |
|
236
|
0 |
0 |
if ($kid == 0) |