db-iris: fix --via not matching dest of trains with incomplete route data

2 files changed, 4 insertions, 1 deletions

diff --git a/Changelog b/Changelog
index f7c5d33..2f89738 100644
--- a/Changelog
+++ b/Changelog
@@ -1,6 +1,8 @@
 git HEAD
 
     * IRIS / db-iris: Add lookahead option
+    * db-iris: Fix --via not matching destination of trains with incomplete
+      route data
 
 Travel::Status::DE::IRIS 0.02 - Mon Feb 03 2014
 
diff --git a/bin/db-iris b/bin/db-iris
index 9ef3a60..a824fdd 100755
--- a/bin/db-iris
+++ b/bin/db-iris
@@ -272,7 +272,8 @@ for my $d ( $status->results() ) {
 
 	my @via;
 
-	@via = $d->route_post;
+	# route may be incomplete, so check route_end as well
+	@via = ( $d->route_post, $d->route_end );
 
 	if (   ( $filter_via and not( first { $_ =~ m{$filter_via}io } @via ) )
 		or ( @grep_class and none { $_ ~~ \@grep_class } $d->classes )