# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
@EXPORT = qw(
-
+
);
EOP
$req->{env}{FCGI_ROLE} = $FCGI::rolenames{$req->{role}};
my $param = FCGI::Stream->new($req, PARAMS);
my ($nlen, $vlen);
- while (defined($nlen = read_nv_len($param)) &&
+ while (defined($nlen = read_nv_len($param)) &&
defined($vlen = read_nv_len($param))) {
my ($name, $val);
read $param, $name, $nlen;
}
$self->{buf} .= $buf;
}
- my ($newbuf, $result) = (substr($self->{buf}, $len),
+ my ($newbuf, $result) = (substr($self->{buf}, $len),
substr($self->{buf}, 0, $len));
$self->{buf} = $newbuf;
$result;
my $len = $length > 32*1024 ? 32*1024 : $length;
my $padlen = (8 - ($len % 8)) % 8;
my $templ = "CCnnCxa${len}x$padlen";
- my $data = pack($templ,
- VERSION_1, $type, $self->{id}, $len, $padlen,
+ my $data = pack($templ,
+ VERSION_1, $type, $self->{id}, $len, $padlen,
substr($content, $offset, $len));
syswrite $self->{socket}, $data;
$length -= $len;
$c = $stream->GETC();
if ($/ eq '') {
- while ($c eq "\n") {
+ while ($c eq "\n") {
$c = $stream->GETC();
}
}
You should only use your own socket if your program
is not started by a process manager such as mod_fastcgi
-(except for the FastCgiExternalServer case) or cgi-fcgi.
+(except for the FastCgiExternalServer case) or cgi-fcgi.
If you use the option, you have to let your FastCGI
server know which port (and possibly server) your program
is listening on.