Ticket #6774: bindingpatch.diff

File bindingpatch.diff, 829 bytes (added by anonymous, 16 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;