get_(active_)service: return hashrefs after all, not hashes

1 files changed, 3 insertions, 3 deletions

diff --git a/bin/hafas-m b/bin/hafas-m
index 5476cb5..e667a66 100755
--- a/bin/hafas-m
+++ b/bin/hafas-m
@@ -91,9 +91,9 @@ sub parse_mot_options {
 			if ( not $hafas_url ) {
 				$service //= 'DB';
 			}
-			my %desc = Travel::Status::DE::HAFAS::get_service($service);
-			if (%desc) {
-				my @mots = @{ $desc{productbits} };
+			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;