Unverified Commit e2de80f6 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Carriage: handle undefined vehicleID

parent d6417395

lib/Travel/Status/DE/DBRIS/Formation/Carriage.pm

+4 −1
Original line number Diff line number Diff line
@@ -49,7 +49,10 @@ sub new { 
	$ref->{section}       = $json{platformPosition}{sector};

	$ref->{type}          = $json{type}{constructionType};



	$ref->{model} =~ s{^.....(...)....(?:-.)?$}{$1} or $ref->{model} = undef;

	if ( defined $ref->{model} ) {

		$ref->{model} =~ s{^.....(...)....(?:-.)?$}{$1}

		  or $ref->{model} = undef;

	}



	my $self = bless( $ref, $obj );