@@ -181,16 +181,16 @@ package mythtv::nuvinfo;
181181 my $data = ` $program -v -v -v -v -nolirc -nojoystick -vo null -ao null -frames 0 -identify '$file ' 2>/dev/null` ;
182182 study $data ;
183183 ($info {' video_type' }) = $data =~ m / ^VIDEO:\s *(MPEG[12])/ m ;
184- ($info {' width' }) = $data =~ m / ^ID_VIDEO_WIDTH=((?!0 \. 0) \d + )/ m ;
185- ($info {' height' }) = $data =~ m / ^ID_VIDEO_HEIGHT=((?!0 \. 0) \d + )/ m ;
186- ($info {' fps' }) = $data =~ m / ^ID_VIDEO_FPS=((?!0 \. 0) \d + (?:\.\d * )?)/ m ;
187- ($info {' audio_sample_rate' }) = $data =~ m / ^ID_AUDIO_RATE=((?!0 \. 0) \d + )/ m ;
188- ($info {' audio_bitrate' }) = $data =~ m / ^ID_AUDIO_BITRATE=((?!0 \. 0) \d + )/ m ;
184+ ($info {' width' }) = $data =~ m / ^ID_VIDEO_WIDTH=0*([1-9] \d * )/ m ;
185+ ($info {' height' }) = $data =~ m / ^ID_VIDEO_HEIGHT=0*([1-9] \d * )/ m ;
186+ ($info {' fps' }) = $data =~ m / ^ID_VIDEO_FPS=0*([1-9] \d * (?:\.\d + )?)/ m ;
187+ ($info {' audio_sample_rate' }) = $data =~ m / ^ID_AUDIO_RATE=0*([1-9] \d * )/ m ;
188+ ($info {' audio_bitrate' }) = $data =~ m / ^ID_AUDIO_BITRATE=0*([1-9] \d * )/ m ;
189189 ($info {' audio_bits_per_sample' }) = $data =~ m / ^AUDIO:.+?ch,\s *[su] (8|16)/ mi ;
190- ($info {' audio_channels' }) = $data =~ m / ^ID_AUDIO_NCH=((?!0 \. 0) \d + )/ m ;
191- ($info {' fps' }) = $data =~ m / ^ID_VIDEO_FPS=((?!0 \. 0) \d + (?:\.\d * )?)/ m ;
192- ($info {' aspect' }) = $data =~ m / ^ID_VIDEO_ASPECT=((?!0 \. 0) \d + (?:[\.\, ]\d * )?)/ m ;
193- ($info {' audio_type' }) = $data =~ m / ^ID_AUDIO_CODEC=((?!0 \. 0) \d + (?:\.\d * )?)/ m ;
190+ ($info {' audio_channels' }) = $data =~ m / ^ID_AUDIO_NCH=0*([1-9] \d * )/ m ;
191+ ($info {' fps' }) = $data =~ m / ^ID_VIDEO_FPS=0*([1-9] \d * (?:\.\d + )?)/ m ;
192+ ($info {' aspect' }) = $data =~ m / ^ID_VIDEO_ASPECT=0*([1-9] \d * (?:[\.\, ]\d + )?)/ m ;
193+ ($info {' audio_type' }) = $data =~ m / ^ID_AUDIO_CODEC=0*([1-9] \d * (?:\.\d + )?)/ m ;
194194 ($info {' mpeg_stream_type' }) = $data =~ m / ^ID_DEMUXER=(\w +)/ mi ;
195195 # Stream type
196196 $info {' mpeg_stream_type' } = lc ($info {' mpeg_stream_type' });
0 commit comments