Unverified Commit 38071ce2 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

treat delays as integers. what the fuck.

parent 2ce7ee4d

lib/Travel/Status/DE/HAFAS/Journey.pm

+2 −2
Original line number Diff line number Diff line
@@ -121,12 +121,12 @@ sub new { 


		my $arr_delay

		  = ( $sched_arr and $rt_arr )

		  ? ( $rt_arr->epoch - $sched_arr->epoch ) / 60

		  ? 0 + ( $rt_arr->epoch - $sched_arr->epoch ) / 60

		  : undef;



		my $dep_delay

		  = ( $sched_dep and $rt_dep )

		  ? ( $rt_dep->epoch - $sched_dep->epoch ) / 60

		  ? 0 + ( $rt_dep->epoch - $sched_dep->epoch ) / 60

		  : undef;



		my $arr_cancelled = $stop->{aCncl};