diff --git a/lib/Travel/Status/DE/HAFAS/Result.pm b/lib/Travel/Status/DE/HAFAS/Result.pm index f7fabef1dd0d22dba6c46045842eae7c97223896..99c320b7ba2b11f183fb6838b9bf7b274f791ce7 100644 --- a/lib/Travel/Status/DE/HAFAS/Result.pm +++ b/lib/Travel/Status/DE/HAFAS/Result.pm @@ -104,7 +104,7 @@ sub type { my ($self) = @_; # $self->{train} is either "TYPE 12345" or "TYPE12345" - my ($type) = ( $self->{train} =~ m{ ^ ([[:upper:]]+) }x ); + my ($type) = ( $self->{train} =~ m{ ^ ([^[:space:]]+) }x ); return $type; }