diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2019-01-04 13:45:22 +0100 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2019-01-04 13:45:22 +0100 |
| commit | ba6a8d18d3ff347fa46e6e06f73937419e961e2d (patch) | |
| tree | 4d5ec8db400682bd46a74af8fc9b0fe09fe06e0b | |
| parent | 9cc06b36825c40cf97fd0db32e43582e6aa64783 (diff) | |
is_{first,second}_class: Support dosto wagons
| -rw-r--r-- | lib/Travel/Status/DE/DBWagenreihung/Wagon.pm | 4 |
1 files 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; |