diff options
Diffstat (limited to 'lib/Travel/Status/DE')
| -rw-r--r-- | lib/Travel/Status/DE/EFA/Trip.pm | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/lib/Travel/Status/DE/EFA/Trip.pm b/lib/Travel/Status/DE/EFA/Trip.pm index 070c427..461b989 100644 --- a/lib/Travel/Status/DE/EFA/Trip.pm +++ b/lib/Travel/Status/DE/EFA/Trip.pm @@ -117,15 +117,18 @@ sub polyline { if ( $min_dist{$key} ) { if ( defined $self->{polyline}[ $min_dist{$key}{index} ]{stop} ) { - # XXX experimental and untested - # one polyline entry maps to multiple stops → duplicate it; insert $stop after the already-present entry - $min_dist{$key}{index} += 1; - splice( - @{ $self->{polyline} }, - $min_dist{$key}{index}, - 0, { %{ $self->{polyline}[ $min_dist{$key}{index} ] } } + warn( +"$key: overwriting stop ref at $min_dist{$key}{index} with $key" ); + # XXX experimental and untested + # one polyline entry maps to multiple stops → duplicate it; insert $stop after the already-present entry + #$min_dist{$key}{index} += 1; + #splice( + # @{ $self->{polyline} }, + # $min_dist{$key}{index}, + # 0, { %{ $self->{polyline}[ $min_dist{$key}{index} ] } } + #); } $self->{polyline}[ $min_dist{$key}{index} ]{stop} = $stop; |