6,9c6,9
< # @url       $URL$
< # @date      $Date$
< # @version   $Revision$
< # @author    $Author$
---
> # @url       $URL: http://svn.mythtv.org/svn/trunk/mythtv/bindings/perl/MythTV/Recording.pm $
> # @date      $Date: 2009-04-11 00:04:30 +0000 (Sat, 11 Apr 2009) $
> # @version   $Revision: 20349 $
> # @author    $Author: xris $
312c312
<         ($info{'video_type'})            = $data =~ m/^VIDEO:\s*(MPEG[12])/m;
---
>         ($info{'video_type'})            = $data =~ m/^VIDEO:?\s*(MPEG[12]|H264)/m;
324c324,331
<     # Stream type
---
>         if ($info{'width'}==0)
>            {
>               my $altdata = `$program -v -v -v -v -nolirc -nojoystick -vo null -ao null -frames 1 -identify -demuxer lavf '$file' 2>/dev/null`;
>               study $altdata;
>               ($info{'width'})                 = $altdata =~ m/^ID_VIDEO_WIDTH=0*([1-9]\d*)/m;
>               ($info{'height'})                = $altdata =~ m/^ID_VIDEO_HEIGHT=0*([1-9]\d*)/m;
>            } 
>    # Stream type