Use Sys::Sendfile instead of IO::SendFile as more compatible implementation

hinted-selects
Vitaliy Filippov 2014-10-22 16:35:25 +04:00
parent 48b3fd29f8
commit 7ad0eec801
2 changed files with 4 additions and 4 deletions

View File

@ -335,8 +335,8 @@ sub OPTIONAL_MODULES {
feature => 'Standalone HTTP server',
},
{
package => 'IO-SendFile',
module => 'IO::SendFile',
package => 'Sys-Sendfile',
module => 'Sys::Sendfile',
feature => 'Standalone HTTP server',
},
);

View File

@ -46,7 +46,7 @@ package Bugzilla::HTTPServerSimple;
use Bugzilla;
use Bugzilla::Util qw(html_quote);
use Time::HiRes qw(gettimeofday tv_interval);
use IO::SendFile qw(sendfile);
use Sys::Sendfile qw(sendfile);
use POSIX qw(strftime);
use LWP::MediaTypes qw(guess_media_type);
@ -304,7 +304,7 @@ sub handle_request
print $ENV{SERVER_PROTOCOL}." 200 OK\r\n".
"Content-Type: ".guess_media_type($script)."\r\n".
"Content-Length: ".(-s $script)."\r\n\r\n";
sendfile(fileno(STDOUT), fileno($fd), 0, -s $script);
sendfile(STDOUT, $fd, -s $script);
close $fd;
print STDERR strftime("[%Y-%m-%d %H:%M:%S]", localtime)." Served $script via sendfile()\n";
return 200;