fix streaming. don't close the session until done

This commit is contained in:
Doug Bell 2010-08-03 17:02:39 -05:00
parent d9635343db
commit 2a33785d11
2 changed files with 12 additions and 3 deletions

View file

@ -97,6 +97,10 @@ sub call {
# And finally, clean up
$writer->close;
# Close the session, because the WebGUI::Middleware::Session didn't
$session->close;
delete $env->{'webgui.session'};
}
catch {
if ($response->writer) {

View file

@ -65,9 +65,14 @@ sub call {
sub {
my $res = shift;
# Close the Session
$env->{'webgui.session'}->close();
delete $env->{'webgui.session'};
# Close the Session if we aren't streaming
if ( !$env->{'webgui.session'}->response->streaming ) {
$env->{'webgui.session'}->close();
delete $env->{'webgui.session'};
}
# If we are streaming, the session will be closed inside of
# WebGUI.pm
}
);
}