From c8044c760d26298155d5aee3c1ad8ca993b647d2 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Fri, 9 Oct 2015 15:42:30 +0200 Subject: fix type accessor --- lib/Travel/Status/DE/HAFAS/Result.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/Travel/Status') 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; } -- cgit v1.2.3