| … | … | ||
|---|---|---|---|
| 540 | 540 | ||
| 541 | sub handle_file { | 541 | sub handle_file { |
| 542 | my ($self, $queue, $tbf) = @_; | 542 | my ($self, $queue, $tbf) = @_; |
| 543 | my $length = $self->{stat}[7]; | 543 | my $length = $self->{stat}[7]; |
| 544 | my $hdr = { | 544 | my $hdr = { |
| 545 | "Last-Modified" => time2str ((stat _)[9]), | 545 | "Last-Modified" => time2str ((stat _)[9]), |
| 546 | "Accept-Ranges" => "bytes", | ||
| 546 | }; | 547 | }; |
| 547 | 548 | ||
| 548 | my @code = (200, "ok"); | 549 | my @code = (200, "ok"); |
| 549 | my ($l, $h); | 550 | my ($l, $h); |
| 550 | 551 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |