summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xlib/Travelynx.pm16
1 files changed, 12 insertions, 4 deletions
diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm
index 9c052e3..5b8680e 100755
--- a/lib/Travelynx.pm
+++ b/lib/Travelynx.pm
@@ -1446,10 +1446,18 @@ sub startup {
= scalar @{ $ret->{route_after} }
? $ret->{route_after}[0][0]
: undef;
- my $stop_before_dest
- = scalar @{ $ret->{route_after} }
- ? $ret->{route_after}[-1][0]
- : undef;
+ my $stop_before_dest;
+ for my $i ( 1 .. $#{ $ret->{route_after} } ) {
+ if ( $ret->{arr_name}
+ and $ret->{route_after}[$i][0] eq $ret->{arr_name} )
+ {
+ $stop_before_dest = $ret->{route_after}[ $i - 1 ][0];
+ last;
+ }
+ }
+
+ say $stop_after_dep;
+ say $stop_before_dest;
my ($dep_platform_number)
= ( ( $ret->{dep_platform} // 0 ) =~ m{(\d+)} );