hafas-m: fix -m help

1 files changed, 6 insertions, 3 deletions

diff --git a/bin/hafas-m b/bin/hafas-m
index 931326a..97ecaa2 100755
--- a/bin/hafas-m
+++ b/bin/hafas-m
@@ -89,9 +89,12 @@ sub parse_mot_options {
 
 	for my $type ( split( qr{,}, $types ) ) {
 		if ( $type eq 'help' or $type eq 'list' or $type eq '?' ) {
-			my $desc = Travel::Status::DE::HAFAS::get_service($service);
-			if ($desc) {
-				my @mots = @{ $desc->{productbits} };
+			if ( not $hafas_url ) {
+				$service //= 'DB';
+			}
+			my %desc = Travel::Status::DE::HAFAS::get_service($service);
+			if (%desc) {
+				my @mots = @{ $desc{productbits} };
 				@mots = grep { $_ ne 'x' } @mots;
 				@mots = uniq @mots;
 				@mots = sort @mots;