diff options
| author | Birte Kristina Friesel <derf@finalrewind.org> | 2025-09-19 17:41:46 +0200 |
|---|---|---|
| committer | Birte Kristina Friesel <derf@finalrewind.org> | 2025-09-19 17:41:46 +0200 |
| commit | e987e3e9195491e2c6a16c0a3850394c506f7137 (patch) | |
| tree | 473ca6b0f820fd6330097a3fe982895e542d2752 | |
| parent | 486e54af989d06557d82d88262b0610bb706ba92 (diff) | |
Fix wagon_image for IC2. Something in DBRIS::Formation is broken.4.37.10
| -rw-r--r-- | lib/DBInfoscreen.pm | 7 |
1 files changed, 6 insertions, 1 deletions
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 ) { |