From 38565092afcfafbd65fe0a76bd302c454c40c608 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Tue, 22 Sep 2015 16:45:52 +0200
Subject: get_(active_)service: return hashrefs after all, not hashes

---
 bin/hafas-m | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'bin/hafas-m')

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;
-- 
cgit v1.2.3