| line |
true |
false |
branch |
|
34
|
0 |
0 |
if pod2usage("-verbose", $FCGI::Daemon::ARG[0], "-noperldoc", 1) |
|
40
|
0 |
0 |
if ($FCGI::Daemon::ARG[0]) |
|
43
|
0 |
0 |
if -f $f |
|
54
|
0 |
0 |
unless &getopts("hde:f:q:p:s:g:u:m:c:l:w:", \%o) |
|
55
|
0 |
0 |
if $o{'h'} |
|
58
|
0 |
0 |
if $o{'d'} |
|
59
|
0 |
0 |
defined $o{'w'} ? : |
|
60
|
0 |
0 |
defined $o{'q'} ? : |
|
63
|
0 |
0 |
defined $o{'e'} ? : |
|
67
|
0 |
0 |
if ($FCGI::Daemon::REAL_USER_ID == $FCGI::Daemon::EFFECTIVE_USER_ID and $FCGI::Daemon::EFFECTIVE_USER_ID == 0) |
|
74
|
0 |
0 |
if $o{'fcgi_pm'} |
|
76
|
0 |
0 |
if -f $f |
|
78
|
0 |
0 |
if $o{'fcgi_pm'} |
|
83
|
0 |
0 |
if ($o{'d'}) |
|
86
|
0 |
0 |
unless defined(my $pid = fork) |
|
87
|
0 |
0 |
if $pid |
|
88
|
0 |
0 |
unless eval {
do {
POSIX::setsid()
}
} |
|
102
|
0 |
0 |
unless my $rqst = &FCGI::Request(\*STDIN, \*STDOUT, \*STDERR, \%req_env, scalar &FCGI::OpenSocket($o{'sockfile'}, $o{'prefork'} * $o{'queue'}), 1) |
|
106
|
0 |
0 |
if (defined $o{'gid_num'} and defined $o{'uid_num'}) |
|
108
|
0 |
0 |
unless chown $o{'uid_num'}, $o{'gid_num'}, $o{'sockfile'} |
|
114
|
0 |
0 |
if (defined $o{'gid_num'} and defined $o{'uid_num'}) |
|
129
|
0 |
0 |
unless &setrlimit(scalar RLIMIT_AS(), $o{'rlimit_vmem'}, $o{'rlimit_vmem'}) |
|
131
|
0 |
0 |
unless &setrlimit(scalar RLIMIT_CPU(), $o{'rlimit_cpu'}, $o{'rlimit_cpu'}) |
|
143
|
0 |
0 |
unless (-x -s -r $req_env{'SCRIPT_FILENAME'}) |
|
152
|
0 |
0 |
if $req_env{'SCRIPT_FILENAME'} =~ m[^(.*)\/]u |
|
155
|
0 |
0 |
if ($o{'max_evals'} > 0 and $req_env{'SCRIPT_FILENAME'} =~ /$o{'file_pattern'}\z/u) |
|
163
|
0 |
0 |
if ($EVAL_ERROR) |
|
165
|
0 |
0 |
unless $EVAL_ERROR =~ /^notr3a11yeXit/u |
|
178
|
0 |
0 |
if exists $allvars{$_} |
|
179
|
0 |
0 |
if /::$/u |
|
180
|
0 |
0 |
if /^_/u |
|
184
|
0 |
0 |
if (open my $STAT, "<", "/proc/$$/status") |
|
192
|
0 |
0 |
if ($stat{'VmSize'} / $stat{'VmRSS'} < $o{'leak_threshold'}) |
|
198
|
0 |
0 |
unless --$o{'max_evals'} |
|
209
|
0 |
0 |
unless (defined $pid) |
|
216
|
0 |
0 |
if ($pid) { } |
|
218
|
0 |
0 |
unless open *STDIN, "<&=", $CIN |
|
219
|
0 |
0 |
unless open *STDERR, ">&=", $CERR |
|
220
|
0 |
0 |
unless exec $req_env{'SCRIPT_FILENAME'} |
|
229
|
0 |
0 |
if ($req_env{'REQUEST_METHOD'} =~ /(?:POST|PUT)/u and $req_env{'CONTENT_LENGTH'} != 0) |
|
233
|
0 |
0 |
if $bytes == 0 or not defined $bytes |
|
242
|
0 |
0 |
if (0 == sysread($FH, $buffer, 4096)) { } |
|
246
|
0 |
0 |
$FH == $COUT ? : |
|
262
|
0 |
0 |
if $p{$name} ne "" |
|
273
|
0 |
0 |
if $_ eq "" |
|
275
|
0 |
0 |
if -f -s $file |