Ticket #4207: MythTV.pm.patch

MythTV.pm

@@ -292 +292 @@
             return;
         }
     # Read the response header to find out how much data we'll be grabbing
-        read($$fp, $length, 8);
+        my $result = read($$fp, $length, 8);
+        if (! defined $result) {
+          warn "Error reading from MythTV backend: $!\n";
+          return "";
+        }  elsif ($result == 0) {
+          warn "No data returned by MythTV backend.\n";
+          return "";
+        }
+
         $length = int($length);
     # Read and return any data that was returned
         $ret = '';