summaryrefslogtreecommitdiff
path: root/lib/Travel/Status/DE
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2015-10-09 15:42:30 +0200
committerDaniel Friesel <derf@finalrewind.org>2015-10-09 15:42:30 +0200
commitc8044c760d26298155d5aee3c1ad8ca993b647d2 (patch)
tree273d877b5e756ea55631dfacfbd7f7e586ee44c5 /lib/Travel/Status/DE
parent3bfa4ce7d9a3684dedf71bf004da6b58c7e4ae47 (diff)
fix type accessor
Diffstat (limited to 'lib/Travel/Status/DE')
-rw-r--r--lib/Travel/Status/DE/HAFAS/Result.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Travel/Status/DE/HAFAS/Result.pm b/lib/Travel/Status/DE/HAFAS/Result.pm
index f7fabef..99c320b 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;
}