Tis file documents the revision history for Perl extension Catalyst.
5.50
+ - Added support for passing an IO::Handle object to $c->res->body.
+ (Andrew Bramble)
- Added a new welcome screen.
- Included Catalyst buttons and icons in helper.
- Added Static::Simple plugin to core.
sub finalize_body {
my ( $self, $c ) = @_;
if ( ref $c->response->body && $c->response->body->can('read') ) {
- my $buffer;
while ( !$c->response->body->eof() ) {
- $c->response->body->read( $buffer, $CHUNKSIZE );
+ $c->response->body->read( my $buffer, $CHUNKSIZE );
$self->write( $c, $buffer );
}
+ $c->response->body->close();
}
else {
- $self->write( $c, $c->response->output );
+ $self->write( $c, $c->response->body );
}
}