Fixed the support for related videos.

Author: trizen

bin/youtube-viewer

@@ -4750,7 +4750,7 @@ sub print_videos {
     @$videos = grep {
             ref($_) eq 'HASH' && ref($_->{id}) eq 'HASH'
                 ? (exists($_->{id}{kind})
-                    ? $_->{id}{kind} eq 'youtube#video'
+                    ? $yv_utils->is_video($_)
                     : 0)
                 : 1
     } @$videos;

lib/WWW/YoutubeViewer/Utils.pm

@@ -258,7 +258,11 @@ sub has_entries {
 
     ref($result) eq 'HASH' or return;
 
-    ($result->{pageInfo}{totalResults} // 0) > 0;
+    if (defined($result->{pageInfo}{totalResults})) {
+        return ($result->{pageInfo}{totalResults} > 0);
+    }
+
+    return 1;    # maybe
 }
 
 =head2 normalize_filename($title, $fat32safe)