From e987e3e9195491e2c6a16c0a3850394c506f7137 Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Fri, 19 Sep 2025 17:41:46 +0200
Subject: Fix wagon_image for IC2. Something in DBRIS::Formation is broken.

---
 lib/DBInfoscreen.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lib/DBInfoscreen.pm b/lib/DBInfoscreen.pm
index 18a2c87..afa2f90 100644
--- a/lib/DBInfoscreen.pm
+++ b/lib/DBInfoscreen.pm
@@ -171,9 +171,14 @@ sub startup {
 				and $wagon_type
 				=~ m{ ^ [AB] R? k? [ipv] m m? b? d? s? z f? $ }x )
 			{
+				# TODO this is never reached, as train_type is always ?
+				# (DBRIS $status->train_type is undef)
 				$ret = $wagon_type;
 			}
-			elsif ( $train_type =~ m{IC2.TWIN} ) {
+			elsif ($train_type =~ m{IC2.TWIN}
+				or $wagon_type =~ m{ ^ D [AB] p b? z f? a $ }x )
+			{
+				# See above -- trian_type does not have an effect
 				$ret = $wagon_type;
 			}
 			elsif ( not $uic ) {
-- 
cgit v1.2.3