Commit bb22915f authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Fix has_wagonorder_p logic. request success ≠ result success!

parent cabf159f

lib/Travelynx.pm

+14 −3
Original line number Diff line number Diff line
@@ -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,9 +1850,16 @@ sub startup { 


			$self->ua->request_timeout(5)->head_p($url)->then(

				sub {

					my ($tx) = @_;

					if ( $tx->result->is_success ) {

						$cache->set( $url, 'y' );

						$promise->resolve;

					}

					else {

						$cache->set( $url, 'n' );

						$promise->resolve;

					}

				}

			)->catch(

				sub {

					$cache->set( $url, 'n' );