Commit 377d54ef authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

train_subtype: return undef if unknown

parent b682508b

bin/db-wagenreihung

+1 −1
Original line number Diff line number Diff line
@@ -72,7 +72,7 @@ my $wr = Travel::Status::DE::DBWagenreihung->new( 


printf(

	"%s %s (%s) in %s Gleis %s\n\n",

	$wr->train_type,   $wr->train_no, $wr->train_subtype,

	$wr->train_type, $wr->train_no, $wr->train_subtype // '-',

	$wr->station_name, $wr->platform

);

lib/Travel/Status/DE/DBWagenreihung.pm

+1 −1
Original line number Diff line number Diff line
@@ -207,7 +207,7 @@ sub train_subtype { 
	if ( $ml{ $likelihood[0] } <= 2 ) {



		# inconclusive

		return '???';

		return undef;

	}



	return $likelihood[0];