diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2015-10-09 15:42:30 +0200 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2015-10-09 15:42:30 +0200 |
| commit | c8044c760d26298155d5aee3c1ad8ca993b647d2 (patch) | |
| tree | 273d877b5e756ea55631dfacfbd7f7e586ee44c5 | |
| parent | 3bfa4ce7d9a3684dedf71bf004da6b58c7e4ae47 (diff) | |
fix type accessor
| -rw-r--r-- | lib/Travel/Status/DE/HAFAS/Result.pm | 2 |
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; } |