From ba6a8d18d3ff347fa46e6e06f73937419e961e2d Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Fri, 4 Jan 2019 13:45:22 +0100 Subject: is_{first,second}_class: Support dosto wagons --- lib/Travel/Status/DE/DBWagenreihung/Wagon.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/Travel/Status/DE/DBWagenreihung/Wagon.pm b/lib/Travel/Status/DE/DBWagenreihung/Wagon.pm index 40b34c9..e7d4fbe 100644 --- a/lib/Travel/Status/DE/DBWagenreihung/Wagon.pm +++ b/lib/Travel/Status/DE/DBWagenreihung/Wagon.pm @@ -213,7 +213,7 @@ sub set_traintype { sub is_first_class { my ($self) = @_; - if ( $self->{type} =~ m{^A} ) { + if ( $self->{type} =~ m{^D?A} ) { return 1; } return 0; @@ -222,7 +222,7 @@ sub is_first_class { sub is_second_class { my ($self) = @_; - if ( $self->{type} =~ m{^A?B} ) { + if ( $self->{type} =~ m{^D?A?B} ) { return 1; } return 0; -- cgit v1.2.3