diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2015-09-22 16:45:52 +0200 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2015-09-22 16:45:52 +0200 |
| commit | 38565092afcfafbd65fe0a76bd302c454c40c608 (patch) | |
| tree | 995f925a1e268201fd17e4e898ea57ac8f23a4f0 /bin/hafas-m | |
| parent | 06e7486d854c0ec32bceb83d2074d48888db4fc7 (diff) | |
get_(active_)service: return hashrefs after all, not hashes
Diffstat (limited to 'bin/hafas-m')
| -rwxr-xr-x | bin/hafas-m | 6 |
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; |