[mythtv] nuvexport problem with dvb files with fix!

[George Styles]

Skipped content of type multipart/alternative-------------- next part --------------
Index: cvs/nuvexport/mythtv/nuvinfo.pm
===================================================================
RCS file: /var/lib/mythcvs/nuvexport/mythtv/nuvinfo.pm,v
retrieving revision 1.2
diff -r1.2 nuvinfo.pm
128c128,142
<             my $data = `$program -i '$file' 2>/dev/null`;
---
>             $info{'width'}=0;
>             my $amount=10;
>             my $data;
>             my $gotit = 0;
>             while (!$gotit) {
>                 $data = `$program -H $amount -i '$file' 2>/dev/null`;
>                 if ($data =~ (/frame\s+rate/)) {
>                     $gotit = 1;
>                 }
>                 $amount += 25;
>                 # Sensible maximium
>                 if ($amount > 2000) {
>                   die "Failed to read info from file using tcprobe\n\n";
>                 }
>             }
132c146
<              $info{'audio_channels'}) = $data =~ /audio\s+track:.+?-e\s+(\d+),(\d+),(\d+)\b/m;
---
>             $info{'audio_channels'}) = $data =~ /audio\s+track:.+?-e\s+(\d+),(\d+),(\d+)\b/m;