summaryrefslogtreecommitdiff
path: root/lib/Travelynx.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Travelynx.pm')
-rwxr-xr-xlib/Travelynx.pm11
1 files changed, 7 insertions, 4 deletions
diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm
index 7d3548e..860ba87 100755
--- a/lib/Travelynx.pm
+++ b/lib/Travelynx.pm
@@ -585,9 +585,10 @@ sub startup {
);
}
- if ( not( defined $train or $force ) ) {
+ if ( not defined $train ) {
- # Arrival time via IRIS is unknown, try falling back to HAFAS
+ # Arrival time via IRIS is unknown, so the train probably has not
+ # arrived yet. Fall back to HAFAS.
if ( my $station_data
= first { $_->[0] eq $station } @{ $journey->{route} } )
{
@@ -611,8 +612,10 @@ sub startup {
);
}
}
- $self->run_hook( $uid, 'update' );
- return ( 1, undef );
+ if ( not $force ) {
+ $self->run_hook( $uid, 'update' );
+ return ( 1, undef );
+ }
}
my $has_arrived = 0;