connecting trains: fix warning when encountering unknown platforms
This commit is contained in:
parent
d256a1956a
commit
68bc276bff
1 changed files with 7 additions and 3 deletions
|
@ -206,9 +206,13 @@ sub get_connecting_trains_p {
|
||||||
$train->{message_id} = { map { $_ => 1 } @message_ids };
|
$train->{message_id} = { map { $_ => 1 } @message_ids };
|
||||||
my $interchange_duration;
|
my $interchange_duration;
|
||||||
if ( exists $stationinfo->{i} ) {
|
if ( exists $stationinfo->{i} ) {
|
||||||
|
if ( defined $arr_platform
|
||||||
|
and defined $train->platform )
|
||||||
|
{
|
||||||
$interchange_duration
|
$interchange_duration
|
||||||
= $stationinfo->{i}{$arr_platform}
|
= $stationinfo->{i}{$arr_platform}
|
||||||
{ $train->platform };
|
{ $train->platform };
|
||||||
|
}
|
||||||
$interchange_duration //= $stationinfo->{i}{"*"};
|
$interchange_duration //= $stationinfo->{i}{"*"};
|
||||||
}
|
}
|
||||||
if ( defined $interchange_duration ) {
|
if ( defined $interchange_duration ) {
|
||||||
|
|
Loading…
Reference in a new issue