Commit 9a51e863 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

HAFAS->new: Die if an unknown service is requested

parent 86ade9b0

lib/Travel/Status/DE/HAFAS.pm

+4 −0
Original line number Diff line number Diff line
@@ -108,6 +108,10 @@ sub new { 
		$service = 'DB';

	}



	if ( defined $service and not exists $hafas_instance{$service} ) {

		confess("The service '$service' is not supported");

	}



	my $ref = {

		active_service => $service,

		developer_mode => $conf{developer_mode},