Filter out private and deleted videos from playlists.

bin/gtk-pipe-viewer

@@ -29,7 +29,7 @@ use warnings;
 no warnings 'once';
 
 my $DEVEL;                                 # true in devel mode
-use if ($DEVEL = 0), lib => qw(../lib);    # devel only
+use if ($DEVEL = 1), lib => qw(../lib);    # devel only
 
 use WWW::PipeViewer v0.0.4;
 use WWW::PipeViewer::RegularExpressions;

bin/pipe-viewer

@@ -44,7 +44,7 @@ use warnings;
 no warnings 'once';
 
 my $DEVEL;                                 # true in devel mode
-use if ($DEVEL = 0), lib => qw(../lib);    # devel mode
+use if ($DEVEL = 1), lib => qw(../lib);    # devel mode
 
 use WWW::PipeViewer v0.0.4;
 use WWW::PipeViewer::RegularExpressions;

lib/WWW/PipeViewer.pm

@@ -592,6 +592,9 @@ sub select_good_invidious_instances {
 
 sub pick_random_instance {
     my ($self) = @_;
+
+    # TODO: make sure the selected invidious instance actually works.
+
     my @candidates = $self->select_good_invidious_instances();
 
     if (not @candidates) {

lib/WWW/PipeViewer/InitialData.pm

@@ -302,8 +302,8 @@ sub _extract_itemSection_entry {
         $video{title}           = _extract_title($info)    // return;
         $video{lengthSeconds}   = _extract_length_seconds($info) || 0;
         $video{liveNow}         = ($video{lengthSeconds} == 0);
-        $video{author}          = _extract_author_name($info);
+        $video{author}          = _extract_author_name($info) // return;
-        $video{authorId}        = _extract_channel_id($info);
+        $video{authorId}        = _extract_channel_id($info)  // return;
         $video{publishedText}   = _extract_published_text($info);
         $video{viewCountText}   = _extract_view_count_text($info);
         $video{videoThumbnails} = _extract_thumbnails($info);