|
@@ -164,9 +164,7 @@ sub _serve ($path, $streaming=0, $last_fetch=0) {
|
|
|
return sub {
|
|
return sub {
|
|
|
my $responder = shift;
|
|
my $responder = shift;
|
|
|
my $writer = $responder->([ $code, [$h]]);
|
|
my $writer = $responder->([ $code, [$h]]);
|
|
|
- my $it = 10000;
|
|
|
|
|
- $fh->autoflush(1);
|
|
|
|
|
- while ( read($fh, my $buf, $it) ) {
|
|
|
|
|
|
|
+ while ( read($fh, my $buf, 102400) ) {
|
|
|
$writer->write($buf);
|
|
$writer->write($buf);
|
|
|
}
|
|
}
|
|
|
close $fh;
|
|
close $fh;
|
