summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xlib/Travelynx.pm17
1 files changed, 14 insertions, 3 deletions
diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm
index 9f1a3a8..df02485 100755
--- a/lib/Travelynx.pm
+++ b/lib/Travelynx.pm
@@ -1838,7 +1838,11 @@ sub startup {
my $promise = Mojo::Promise->new;
if ( my $content = $cache->get($url) ) {
- if ( $content eq 'n' ) {
+ if ( $content eq 'y' ) {
+ $promise->resolve;
+ return $promise;
+ }
+ elsif ( $content eq 'n' ) {
$promise->reject;
return $promise;
}
@@ -1846,8 +1850,15 @@ sub startup {
$self->ua->request_timeout(5)->head_p($url)->then(
sub {
- $cache->set( $url, 'y' );
- $promise->resolve;
+ my ($tx) = @_;
+ if ( $tx->result->is_success ) {
+ $cache->set( $url, 'y' );
+ $promise->resolve;
+ }
+ else {
+ $cache->set( $url, 'n' );
+ $promise->resolve;
+ }
}
)->catch(
sub {