Increase buffer size (support for 1Gbps networks)

This commit is contained in:
Ilia Rostovtsev
2019-03-19 11:16:18 +03:00
committed by GitHub
parent a7eee18a58
commit 60cc26ffbd

View File

@@ -26,7 +26,7 @@ print "Content-Disposition: attachment; filename=\"$name$ext\"\n";
print "Content-Length: $size\n\n";
open (FILE, "< $file") or die "can't open $file: $!";
binmode FILE;
local $/ = \102400;
local $/ = \2048000;
while (<FILE>) {
print $_;
}