| line |
true |
false |
branch |
|
36
|
0 |
0 |
if (defined $user) |
|
37
|
0 |
0 |
if ($user =~ /[^0-9]/) { } |
|
39
|
0 |
0 |
unless defined $uid |
|
46
|
0 |
0 |
if (defined $group) |
|
47
|
0 |
0 |
if ($group =~ /[^0-9]/) |
|
49
|
0 |
0 |
unless defined $gid |
|
68
|
0 |
0 |
if ($wd) |
|
69
|
0 |
0 |
unless -d $wd or mkdir $wd, 448 |
|
72
|
0 |
0 |
unless chdir $wd |
|
76
|
0 |
0 |
exists $args{'background'} ? : |
|
77
|
0 |
0 |
if ($bg) |
|
79
|
0 |
0 |
if ($kid) { } |
|
|
0 |
0 |
elsif (not defined $kid) { } |
|
87
|
0 |
0 |
unless dispatcher('list') >= 1 |
|
92
|
0 |
0 |
if (defined $pidfn) |
|
94
|
0 |
0 |
if (open PIDF, '>', $pidfn) |
|
102
|
0 |
0 |
if ($gid != $Any::Daemon::EGID and $uid != $Any::Daemon::EUID) { } |
|
|
0 |
0 |
elsif ($Any::Daemon::EUID == 0) { } |
|
103
|
0 |
0 |
if $wd |
|
105
|
0 |
0 |
if ($] > 5.015007) { } |
|
113
|
0 |
0 |
if $@ |
|
134
|
0 |
0 |
if (my $e = $@->wasFatal) |
|
154
|
0 |
0 |
if $pidfn |
|
155
|
0 |
0 |
$signal eq 'INT' ? : |
|
159
|
0 |
0 |
if ($bg) |
|
203
|
0 |
0 |
if $kid <= 0 |
|
205
|
0 |
0 |
if ($? != 0) |
|
222
|
0 |
0 |
unless (defined $kid) |
|
223
|
0 |
0 |
unless $silence_warn++ |
|
225
|
0 |
0 |
if $silence_warn == 300 |
|
229
|
0 |
0 |
if ($kid == 0) |