Ticket #6189: raw_stream_head_request.diff

File raw_stream_head_request.diff, 924 bytes (added by Tom Dexter <digitalaudiorock@…>, 10 years ago)
  • stream_raw.

    old new  
    108108                 );
    109109    }
    110110
     111    if ($ENV{'REQUEST_METHOD'} ne 'HEAD') {
    111112# Seek to the requested position
    112     sysseek DATA, $start, 0;
     113        sysseek DATA, $start, 0;
    113114
    114115# Print the content to the browser
    115     my $buffer;
    116     while (sysread DATA, $buffer, $read_size ) {
    117         print $buffer;
    118         $size -= $read_size;
    119         if ($size == 0) {
    120             last;
    121         }
    122         if ($size < $read_size) {
    123             $read_size = $size;
     116        my $buffer;
     117        while (sysread DATA, $buffer, $read_size ) {
     118            print $buffer;
     119            $size -= $read_size;
     120            if ($size == 0) {
     121                last;
     122            }
     123            if ($size < $read_size) {
     124                $read_size = $size;
     125            }
    124126        }
    125127    }
    126128    close DATA;