Ticket #6189: raw_stream_head_request.diff

stream_raw.

@@ -108 +108 @@
                  );
     }
 
+    if ($ENV{'REQUEST_METHOD'} ne 'HEAD') {
 # Seek to the requested position
-    sysseek DATA, $start, 0;
+        sysseek DATA, $start, 0;
 
 # Print the content to the browser
-    my $buffer;
-    while (sysread DATA, $buffer, $read_size ) {
-        print $buffer;
-        $size -= $read_size;
-        if ($size == 0) {
-            last;
-        }
-        if ($size < $read_size) {
-            $read_size = $size;
+        my $buffer;
+        while (sysread DATA, $buffer, $read_size ) {
+            print $buffer;
+            $size -= $read_size;
+            if ($size == 0) {
+                last;
+            }
+            if ($size < $read_size) {
+                $read_size = $size;
+            }
         }
     }
     close DATA;