Ticket #6774: bindingpatch.diff

File bindingpatch.diff, 829 bytes (added by anonymous, 3 years ago)

please try this patch.

  • bindings/perl/MythTV/Recording.pm

     
    307307    # Set the is_mpeg flag 
    308308        $info{'is_mpeg'} = 1; 
    309309    # Grab the info we want from mplayer (go uber-verbose to override --really-quiet) 
    310         my $data = `$program -v -v -v -v -nolirc -nojoystick -vo null -ao null -frames 1 -identify '$file' 2>/dev/null`; 
     310        my $data = `$program -v -v -v -v -nolirc -nojoystick -vo null -ao null -frames 1 -identify -demuxer lavf '$file' 2>/dev/null`; 
    311311        study $data; 
    312312        ($info{'video_type'})            = $data =~ m/^VIDEO:\s*(MPEG[12])/m; 
    313313        ($info{'width'})                 = $data =~ m/^ID_VIDEO_WIDTH=0*([1-9]\d*)/m;