Commit 7324ee46 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

set errstr when receiving an empty response

parent a0aa210f

lib/Travel/Status/DE/DBWagenreihung.pm

+7 −0
Original line number Diff line number Diff line
@@ -77,6 +77,13 @@ sub get_wagonorder { 
		return;

	}



	if (    @{ $json->{data}{istformation}{allFahrzeuggruppe} // [] } == 0

		and @{ $json->{data}{istformation}{halt} // [] } == 0 )

	{

		$self->{errstr} = 'No wagon order available';

		return;

	}



	$self->{data} = $json->{data};

	$self->{meta} = $json->{meta};

}