diff options
| -rwxr-xr-x | lib/Travelynx.pm | 16 |
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+)} ); |