Ticket #4207: MythTV.pm.patch

File MythTV.pm.patch, 670 bytes (added by andrew@…, 13 years ago)

Patch for MythTV.pm

  • MythTV.pm

    old new  
    292292            return;
    293293        }
    294294    # Read the response header to find out how much data we'll be grabbing
    295         read($$fp, $length, 8);
     295        my $result = read($$fp, $length, 8);
     296        if (! defined $result) {
     297          warn "Error reading from MythTV backend: $!\n";
     298          return "";
     299        }  elsif ($result == 0) {
     300          warn "No data returned by MythTV backend.\n";
     301          return "";
     302        }
     303
    296304        $length = int($length);
    297305    # Read and return any data that was returned
    298306        $ret = '';