my $body = $c->response->body;
if ( ref $body && ($body->can('read') || ref($body) eq 'GLOB') ) {
while ( !eof $body ) {
- read $body, my $buffer, $CHUNKSIZE;
+ read $body, my ($buffer), $CHUNKSIZE;
last unless $self->write( $c, $buffer );
}
close $body;
$infos = <<"";
<pre>
(en) Please come back later
+(fr) SVP veuillez revenir plus tard
(de) Bitte versuchen sie es spaeter nocheinmal
(at) Konnten's bitt'schoen spaeter nochmal reinschauen
(no) Vennligst prov igjen senere