From a163cb9ce310163d746879a029191ad60d5754cb Mon Sep 17 00:00:00 2001
From: Derf Null <derf@finalrewind.org>
Date: Tue, 18 Apr 2023 22:34:53 +0200
Subject: Journey: Fix ->route_interesting

Broken by 4871bc50f636dca9030575b2d693079a5fd663d7
---
 lib/Travel/Status/DE/HAFAS/Journey.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'lib/Travel/Status/DE/HAFAS/Journey.pm')

diff --git a/lib/Travel/Status/DE/HAFAS/Journey.pm b/lib/Travel/Status/DE/HAFAS/Journey.pm
index 824019b..1c862e3 100644
--- a/lib/Travel/Status/DE/HAFAS/Journey.pm
+++ b/lib/Travel/Status/DE/HAFAS/Journey.pm
@@ -9,6 +9,7 @@ use 5.014;
 no if $] >= 5.018, warnings => 'experimental::smartmatch';
 
 use parent 'Class::Accessor';
+use List::Util qw(any);
 use Travel::Status::DE::HAFAS::Stop;
 
 our $VERSION = '4.09';
@@ -392,7 +393,9 @@ sub route_interesting {
 
 		while ( @via_show < $max_parts and @via_main ) {
 			my $stop = shift(@via_main);
-			if ( $stop ~~ \@via_show or $stop->{name} eq $last_stop->{name} ) {
+			if ( any { $_->{name} eq $stop->{name} } @via_show
+				or $stop->{name} eq $last_stop->{name} )
+			{
 				next;
 			}
 			push( @via_show, $stop );
-- 
cgit v1.2.3