| line |
true |
false |
branch |
|
32
|
0 |
0 |
if pod2usage(-'verbose', $FCGI::Daemon::ARG[0], -'noperldoc', 1) |
|
38
|
0 |
0 |
unless getopts 'hde:f:q:p:s:g:u:m:c:l:w:', \%o |
|
39
|
0 |
0 |
if $o{'h'} |
|
42
|
0 |
0 |
if $o{'d'} |
|
43
|
0 |
0 |
defined $o{'w'} ? : |
|
44
|
0 |
0 |
defined $o{'q'} ? : |
|
47
|
0 |
0 |
defined $o{'e'} ? : |
|
51
|
0 |
0 |
if ($FCGI::Daemon::REAL_USER_ID == $FCGI::Daemon::EFFECTIVE_USER_ID and $FCGI::Daemon::EFFECTIVE_USER_ID == 0) |
|
60
|
0 |
0 |
if ($FCGI::Daemon::ARG[0]) |
|
69
|
0 |
0 |
if $o{'fcgi_pm'} |
|
71
|
0 |
0 |
if $o{'fcgi_pm'} |
|
76
|
0 |
0 |
if ($o{'d'}) |
|
79
|
0 |
0 |
unless defined(my $pid = fork) |
|
80
|
0 |
0 |
if $pid |
|
81
|
0 |
0 |
unless eval {
do {
POSIX::setsid()
}
} |
|
94
|
0 |
0 |
unless my $rqst = &FCGI::Request(\*STDIN, \*STDOUT, \*STDERR, \%req_env, &FCGI::OpenSocket($o{'sockfile'}, $o{'prefork'} * $o{'queue'}), 1) |
|
99
|
0 |
0 |
if (defined $o{'gid_num'} and defined $o{'uid_num'}) |
|
100
|
0 |
0 |
unless chown $o{'uid_num'}, $o{'gid_num'}, $o{'sockfile'} |
|
107
|
0 |
0 |
if (defined $o{'gid_num'} and defined $o{'uid_num'}) |
|
118
|
0 |
0 |
if -1 == syscall(SYS_setrlimit(), RLIMIT_AS(), $rlim) |
|
120
|
0 |
0 |
if -1 == syscall(SYS_setrlimit(), RLIMIT_CPU(), $rlim) |
|
132
|
0 |
0 |
unless (-x -s -r $req_env{'SCRIPT_FILENAME'}) |
|
141
|
0 |
0 |
if $req_env{'SCRIPT_FILENAME'} =~ m[^(.*)\/] |
|
144
|
0 |
0 |
if ($o{'max_evals'} > 0 and $req_env{'SCRIPT_FILENAME'} =~ /$o{'file_pattern'}\z/) |
|
152
|
0 |
0 |
if ($EVAL_ERROR) |
|
154
|
0 |
0 |
unless $EVAL_ERROR =~ /^notr3a11yeXit/ |
|
167
|
0 |
0 |
if exists $allvars{$_} |
|
168
|
0 |
0 |
if /::$/ |
|
169
|
0 |
0 |
if /^_/ |
|
173
|
0 |
0 |
if (open my $STAT, '<', "/proc/$$/status") |
|
181
|
0 |
0 |
if ($stat{'VmSize'} / $stat{'VmRSS'} < $o{'leak_threshold'}) |
|
187
|
0 |
0 |
unless --$o{'max_evals'} |
|
198
|
0 |
0 |
unless (defined $pid) |
|
205
|
0 |
0 |
if (not $pid) { } |
|
207
|
0 |
0 |
unless open *STDIN, '<&=', $CIN |
|
208
|
0 |
0 |
unless open *STDERR, '>&=', $CERR |
|
209
|
0 |
0 |
unless exec $req_env{'SCRIPT_FILENAME'} |
|
218
|
0 |
0 |
if ($req_env{'REQUEST_METHOD'} eq 'POST' and $req_env{'CONTENT_LENGTH'} != 0) |
|
222
|
0 |
0 |
if $bytes == 0 or not defined $bytes |
|
231
|
0 |
0 |
if (0 == sysread($FH, $buffer, 4096)) { } |
|
235
|
0 |
0 |
$FH == $COUT ? : |
|
250
|
0 |
0 |
if $p{$name} ne '' |
|
260
|
0 |
0 |
if $_ eq '' |
|
262
|
0 |
0 |
if -f -s $file |