summaryrefslogtreecommitdiff
path: root/lib/Travel/Status/DE/DBWagenreihung
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Travel/Status/DE/DBWagenreihung')
-rw-r--r--lib/Travel/Status/DE/DBWagenreihung/Wagon.pm4
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;