use fields qw(httpd env rbuf input_left remote_addr remote_port forward pull);
use bytes (); # only for bytes::length
use Fcntl qw(:seek);
use fields qw(httpd env rbuf input_left remote_addr remote_port forward pull);
use bytes (); # only for bytes::length
use Fcntl qw(:seek);
sysseek($input, 0, SEEK_SET) or
die "BUG: psgi.input seek failed: $!";
}
sysseek($input, 0, SEEK_SET) or
die "BUG: psgi.input seek failed: $!";
}
# to do proper cleanup:
$env->{'psgix.io'} = $self; # only for ->close
my $res = Plack::Util::run_app($self->{httpd}->{app}, $env);
# to do proper cleanup:
$env->{'psgix.io'} = $self; # only for ->close
my $res = Plack::Util::run_app($self->{httpd}->{app}, $env);
unless ($self->{closed}) {
my $next = $self->{pull};
if ($self->{write_buf_size}) {
unless ($self->{closed}) {
my $next = $self->{pull};
if ($self->{write_buf_size}) {