From d70f29b1794b7ccb1e4cd77c563653578ea74dd5 Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Sat, 30 Aug 2025 16:38:36 +0200
Subject: polyline: warn rather than running untested code

---
 lib/Travel/Status/DE/EFA/Trip.pm | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

(limited to 'lib')

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;
-- 
cgit v1.2.3