Commit 525d395b authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

IRIS.pm: Do not return past departures

parent 6961ddc2

lib/Travel/Status/DE/IRIS.pm

+4 −0
Original line number Diff line number Diff line
@@ -57,6 +57,10 @@ sub new { 


	$self->get_realtime;



	@{ $self->{results} }

	  = grep { ( $_->departure // $_->arrival ) >= $self->{datetime} }

	  @{ $self->{results} };



	@{ $self->{results} }

	  = sort { $a->{datetime} <=> $b->{datetime} } @{ $self->{results} };