ensure video present in 1080p HLS streams

Audio stream may be returned even if video is not available.

Closes #405

get_iplayer

@@ -6510,7 +6510,9 @@ sub get_stream_data {
 			}
 			my $xvs = main::request_url_retry( $ua, $stm2->{streamurl}, 3, undef, undef, 1, undef, 1 );
 			if ( $xvs && $xvs !~ /<html/i ) {
-				$data->{$key2} = $stm2;
+				if ( $key2 =~ /dashfhd/ || $xvs =~ /video=${xvi}000/) {
+					$data->{$key2} = $stm2;
+				}
 			}
 		}
 	}