Commit c8044c76 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

fix type accessor

parent 3bfa4ce7

lib/Travel/Status/DE/HAFAS/Result.pm

+1 −1
Original line number Diff line number Diff line
@@ -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;

}