sub response_done_cb ($$) {
my ($self, $alive) = @_;
sub {
- my $env = delete $self->{env};
+ delete $self->{env}; # we're no longer busy
$self->write(\"0\r\n\r\n") if $alive == 2;
$self->write($alive ? \&next_request : \&close);
}
sub close {
my $self = $_[0];
- if (my $env = delete $self->{env}) {
- delete $env->{'psgix.io'}; # prevent circular references
- }
+ delete $self->{env}; # prevent circular references
if (my $forward = delete $self->{forward}) {
eval { $forward->close };
err($self, "forward ->close error: $@") if $@;