lesson learned: do not deploy from easterhegg
This commit is contained in:
parent
b978ba6bc0
commit
6e42d1dc29
1 changed files with 5 additions and 5 deletions
|
@ -85,11 +85,11 @@ sub get_json_p {
|
||||||
sub get_departures_p {
|
sub get_departures_p {
|
||||||
my ( $self, %opt ) = @_;
|
my ( $self, %opt ) = @_;
|
||||||
|
|
||||||
my $when
|
my $when = (
|
||||||
= $opt{timestamp}
|
$opt{timestamp}
|
||||||
? $opt{timestamp}->clone
|
? $opt{timestamp}->clone
|
||||||
: DateTime->now( time_zone => 'Europe/Berlin' );
|
: DateTime->now( time_zone => 'Europe/Berlin' )
|
||||||
->subtract( minutes => $opt{lookbehind} );
|
)->subtract( minutes => $opt{lookbehind} );
|
||||||
return Travel::Status::DE::HAFAS->new_p(
|
return Travel::Status::DE::HAFAS->new_p(
|
||||||
station => $opt{eva},
|
station => $opt{eva},
|
||||||
datetime => $when,
|
datetime => $when,
|
||||||
|
|
Loading…
Reference in a new issue