Handle some potential corner cases.

2 files changed, 16 insertions, 4 deletions

diff --git a/bin/fair-viewer b/bin/fair-viewer
index 6e391ad..bb30e6a 100755
--- a/bin/fair-viewer
+++ b/bin/fair-viewer
@@ -397,7 +397,7 @@ EOD
 
         my $dumped_config = q{our $CONFIG = } . Data::Dump::pp(\%CONFIG) . "\n";
 
-        if ($home_dir eq $ENV{HOME}) {
+        if (defined($ENV{HOME}) and $home_dir eq $ENV{HOME}) {
             $dumped_config =~ s/\Q$home_dir\E/\$ENV{HOME}/g;
         }
 
@@ -513,7 +513,7 @@ sub load_config {
     # Enable history if Term::ReadLine::Gnu::XS is installed
     if (not defined $CONFIG{history}) {
 
-        if ($term->can('ReadHistory')) {
+        if (eval { $term->can('ReadHistory') }) {
             $CONFIG{history} = 1;
         }
         else {
@@ -561,12 +561,24 @@ if ($opt{history}) {
 
     # Create the history file.
     if (not -e $opt{history_file}) {
+
+        require File::Basename;
+        my $dir = File::Basename::dirname($opt{history_file});
+
+        if (not -d $dir) {
+            require File::Path;
+            File::Path::make_path($dir)
+                or warn "[!] Can't create path <<$dir>>: $!";
+        }
+
         open my $fh, '>', $opt{history_file}
           or warn "[!] Can't create the history file `$opt{history_file}': $!";
     }
 
     # Add history to Term::ReadLine
-    $term->ReadHistory($opt{history_file});
+    if (eval { $term->can('ReadHistory') }) {
+        $term->ReadHistory($opt{history_file});
+    }
 
     # All history entries
     my @history = $term->history_list;
diff --git a/lib/WWW/FairViewer.pm b/lib/WWW/FairViewer.pm
index 71a1389..d70d82d 100644
--- a/lib/WWW/FairViewer.pm
+++ b/lib/WWW/FairViewer.pm
@@ -548,7 +548,7 @@ sub _make_feed_url {
 sub _extract_from_invidious {
     my ($self, $videoID) = @_;
 
-    my $url = sprintf("https://invidio.us/api/v1/videos/%s?fields=formatStreams,adaptiveFormats", $videoID);
+    my $url = sprintf($self->get_api_url . "videos/%s?fields=formatStreams,adaptiveFormats", $videoID);
 
     my $tries = 3;
     my $resp  = $self->{lwp}->get($url);