Ticket #10232: 0001-modules-stream-Reduce-video-playback-startup-latency.patch

modules/stream/stream_flv.pl

@@ -148 +148 @@
         print header(-type => 'video/x-flv');
     }
 
+# RFC 3875 4.3.3. script MUST NOT provide a response message-body for a HEAD request
+    if ($ENV{'REQUEST_METHOD'} eq 'HEAD') {
+        exit;
+    }
+
     my $buffer;
     if (read DATA, $buffer, 53) {
         print $buffer;
@@ -155 +160 @@
         $durPrint = reverse pack("d",$lengthSec);
         print $durPrint;
         while (read DATA, $buffer, 262144) {
-            print $buffer;
+        # Exit if the output pipe is broken i.e. client disconnect
+            unless (print $buffer ) {
+                last;
+            }
         }
     }
     close DATA;

modules/stream/stream_mp4.pl

@@ -80 +80 @@
                  );
     }
 
+# RFC 3875 4.3.3. script MUST NOT provide a response message-body for a HEAD request
+    if ($ENV{'REQUEST_METHOD'} eq 'HEAD') {
+        exit;
+    }
+
 # Seek to the requested position
     sysseek DATA, $start, 0;
 
 # Print the content to the browser
     my $buffer;
     while (sysread DATA, $buffer, $read_size ) {
-        print $buffer;
+    # Exit if the output pipe is broken i.e. client disconnect
+        unless (print $buffer ) {
+            last;
+        }
         $size -= $read_size;
         if ($size == 0) {
             last;

modules/stream/stream_raw.pl

@@ -104 +104 @@
                  );
     }
 
+# RFC 3875 4.3.3. script MUST NOT provide a response message-body for a HEAD request
+    if ($ENV{'REQUEST_METHOD'} eq 'HEAD') {
+        exit;
+    }
+
 # Seek to the requested position
     sysseek DATA, $start, 0;
 
 # Print the content to the browser
     my $buffer;
     while (sysread DATA, $buffer, $read_size ) {
-        print $buffer;
+    # Exit if the output pipe is broken i.e. client disconnect
+        unless (print $buffer ) {
+            last;
+        }
         $size -= $read_size;
         if ($size <= 0) {
             my $fileSize = -s $filename;